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FOREWORD 


Enhancing  the  continued  growth  of  leadership  skills  is  a 
central  element  in  the  Senior  Service  College  mission.  Feedback 
from  others  is  a  useful  tool  for  that  purpose. 

The  Strategic  Leadership  Development  Inventory  (SLDI)  is  a 
questionnaire  designed  to  obtain  feedback  from  seniors^  peers, 
and  suJxjrdinates  on  dimensions  of  leader  actions  and  attributes 
thought  to  be  important  for  senior  leader  development.  In  prac¬ 
tice,  perceptions  from  each  of  these  sources  can  be  compared  both 
among  themselves  and  with  perceptions  of  the  individual  who  pro¬ 
vides  a  self-description.  The  comparison  can  provide  insights 
about  an  individual's  "blind  spots"  and  indications  about  how 
future  development  might  be  guided. 

A  crucial  element  using  the  SLDI  is  the  cost-effective 
generation  of  feedback  to  leaders  in  a  form  that  truly  aids 
understanding  and  development.  The  present  report  documents  the 
development  of  software  that  will  accept  formatted  data  from  a 
mark-sense  scoring  machine,  perform  the  statistical  computations 
necessary  to  develop  feedback  sheets  for  individual  students,  and 
then  print  the  sheets. 

This  work  was  made  possible  by  the  U.S.  Army  Summer 
Associateship  Program  for  High  School  Science  and  Mathematics 
Faculty,  through  which  expertise  was  made  available  for  the 
critical  software  development  part  of  the  project. 


Acting  Director 
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As  a  Baabar  of  tha  Largo  High  School  MatheBatlcs  Department, 
I  participated  in  tha  U.S.  Army  summer  Associateship  Program  for 
High  School  Science  and  Mathematics  Faculty.  My  suBuaer 
associateship  was  supported  by  the  U.S.  Army  Research  Institute 
for  the  Behavioral  and  Social  Sciences,  Strategic  Leadership 
Technical  Area,  Dr.  T.  O.  Jacobs,  Chief,  under  the  auspices  of 
the  U.S.  Army  Research  Office  Scientific  Sciences  Progreua 
administered  by  Battalia. 

I  wish  to  express  my  appreciation  to  Dr.  Jacobs  and  Dr. 
Stewart  for  allowing  me  to  be  part  of  the  strategic  Leader 
Development  Inventory  project.  They  told  me  what  they  wanted  the 
FeedBack  program  to  accomplish  and  gave  me  the  responsibility  of 
completing  the  task. 
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MICRO  CCMfPUTER  FEEDBACK  REPORT  FOR  THE  STRATEGIC  LEADER 
DEVELOPMENT  INVENTORY 


BXBCTTIVg  SUMMARY 


Requlreaent: 

To  dovelop  an  automated  capability  for  generating  completed 
feedback  forms  for  Senior  Service  College  students  who  had 
completed  (and  on  whom  former  superiors,  peers,  and  subordinates 
had  completed)  the  Strategic  Leader  Development  Inventory  (SLDI) . 


Procedvure: 

The  SLDI  was  generated  from  descriptions  of  effective  and 
ineffective  senior  leader  behavior.  Content  analysis  of  these 
descriptions  generated  dimensions  that  were  then  represented  by 
logical  clusters  of  items.  These  items  made  up  the  preliminary 
form  of  the  SLDI.  To  provide  feedback  to  participating  students, 
code  was  %nritten  to  accept  data  files  generated  from  scanning 
scoring  sheets.  The  code  computes  quartile  points  for  all  foiu: 
data  distributions  And  then  prints  feedback  sheets  showing  the 
distribution  of  responses  for  eac^  dimension;  first,  second,  and 
third  quartiles;  the  individual's  self-rating;  and  the  rating  of 
that  individual  by  former  superiors,  peers,  and  subordinates. 


Findings : 

The  individual  may  thus  compare  himself  or  herself  with 
others  in  the  same  class,  and  with  the  perceptions  of  these 
significant  others  from  whom  data  were  obtained  about  himself  or 
herself . 


Utilization  of  Findings: 

The  feedback  system  was  used  for  the  academic  year  1992 
classes  at  the  U.S.  Army  War  College  and  the  Industrial  College 
of  the  Armed  Forces.  It  will  be  revised  as  the  SLDI  is  revised 
for  academic  year  1993  and  subsequent  years,  based  on  factor 
analysis  of  1992  data,  and  will  become  operational  at  both  as  an 
additional  tool  for  leader  development. 
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MICRO  COMPUTER  FEEDBACK  REPORT  FOR  THE 
STRATEGIC  LEADER  DEVELOPMENT  INVENTORY 

INTRODUCTION 

The  Stiat^ic  Leader  Developinent  Inventray  (SLDI)  is  cuirratly  under  devdi^ment  by  the 
U.S.  Army  Research  Institute  fcH*  die  Behavioral  and  Social  Sciences  (ARI),  Strategic  Leadership 
Technical  Area  (SLTA),  in  collaborati<m  with  die  U.S.  Army  War  Collie  (USAWC)  and  the 
Industrial  Cdl^e  of  the  Armed  Fmces  (ICAF).  The  SLDI  is  a  aelf-assessment  survey  to  enable 
particqiants  to  learn  more  about  themselves. 

Participants  in  the  SLDI  complete  a  self-assessment  survey  and  select  diree  siqieriors,  three 
peers,  and  four  subordinates  to  evaluate  them.  After  all  the  surveys  are  conqilded,  the  participants 
receive  a  reptnt  summarizing  the  results.  The  SLDI  rqxirts  enable  the  particqiants  to  learn  how  they 
are  perceived  by  their  superiors,  peers,  and  subordinates.  Coupling  these  reports  with  their  own 
ratings,  the  particqiants  can  develop  a  better  understanding  of  their  strengths  and  weaknesses. 

My  assignment  was  to  write  a  micro  computer  program  that  would  print  graphs  for  the  SLDI 
rqiprts.  Because  the  SLDI  is  designed  to  provide  the  participants  with  informatum  about  themselves, 
I  chose  to  name  the  micro  computer  program  FeedBack. 

The  FeedBack  program  produces  a  2-page  assessment  containing  eight  grtqihs.  Each  graph 
displays  a  participant’s  evaluation  and  the  average  rating  of  his  or  her  peers,  siqieriors,  and 
subordinates.  The  first  page  ccmtains  four  positive  &ctor  graphs  entitled  the  Success  Factors.  The 
sec(Hid  page  contains  four  n^ative  fector  gr^hs  entitled  Failure  Factora.  Ajqiendix  A  contains  a 
sanqile  of  the  FeedBack  graidis. 

Accompanying  the  FeedBack  grsqihs  is  a  aunmary  of  the  goals  of  the  SLDI  and  die 
characteristics  included  in  each  factor.  A  ctqiy  ^qiears  in  Appendix  B.  In  addition  to  the  written 
description,  the  participants  discuss  their  assessmoits  in  group  forums. 

SLDI  DATA  FILES 

Before  the  SLDI  answers  are  ready  for  the  FeedBack  program,  tii^  must  be  processed  by  two 
other  conqiuter  fnograms.  An  optical  scanner  transfers  the  data  from  the  answer  sheets  to  a  computer 
disk.  A  statistical  program  is  used  for  foctor  analysis  and  to  compute  the  average  score  used  by  the 
FeedBack  program. 

I  hdped  ctmqnle  the  computer  data  from  the  SLDI  answer  sheets  for  the  ICAF  class  of  93. 

An  optical  scanner  at  tim  Army  War  Collie  was  used  to  read  the  answer  sheets.  Each  side  of  the 
answer  sheet  was  read  into  a  separate  ASCII  data  fite.  I  used  the  following  names  for  the  data  files: 
Self_IA,  SelfJB,  Sdf_n,  Siqierji,  Super_n,  Pea’_I,  Peer_n,  Subor_I,  and  Subor_n.  The  "I"  in  the 
file  name  means  part  one  of  tiie  SLDI  data  or  the  positive  questitms.  The  ”11"  cm  ^  file  name  means 
part  two  of  the  SLDI  data  or  the  negative  questions.  The  ”Seir  part  one  data  is  in  two  files  because 
there  were  mxat  tiian  100  questiems.  Sdf_IA  omtains  the  answer  to  the  first  100  questions.  Self_IB 
contains  tiie  answers  b^inning  with  que^on  101. 
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The  information  from  one  answer  sheet  became  a  single  line  in  the  data  file.  The 
first  three  digits  of  the  line  are  the  participant’s  identification  number  (ID).  The  first 
answer  will  be  in  column  4,  the  next  answer  in  column  5,  etc.  The  scanner  converted  the 
letters  from  the  answer  sueet  into  numbers  (A  *  5,  B  *  4,  C  *  3,  D  =  2,  E  =  1).  A 
q»ce  means  no  answer  was  given,  and  an  underline  means  the  scanner  could  not 
determine  the  answer. 

The  optical  scanner  does  a  good  job,  but  there  are  going  to  be  mistakes  in  the  data 
files.  I  used  an  ASCII  text  editor  to  correct  data  errors.  Most  of  the  errors  were  the 
result  of  human  mistakes,  like  marking  two  answers  to  the  same  question.  This  would 
appear  in  the  data  file  as  an  underline.  This  type  of  error  occurs  when  an  answer  is 
changed  and  the  first  answer  is  not  completely  erased.  1  used  the  original  answer  sheet 
to  determine  the  desired  response.  If  one  mark  is  not  darker  than  the  other,  the 
underscore  is  converted  to  a  space,  meaning  no  answer. 

I  checked  the  first  three  digits  of  each  line  to  make  sure  it  was  a  valid  ID  number. 
Errors  occur  when  the  participant  forgets  to  bubble  in  the  ID  number  on  the  answer 
sheet.  This  then  appears  as  three  spaces  at  the  beginning  of  the  data  line.  I  located  the 
original  answer  sheet  and  added  the  missing  ID  number  to  the  data  file. 

I  discovered  that  the  scanner  made  errors.  The  most  common  error  occurred  when 
an  answer  was  left  blank.  The  scanner  always  marked  a  blank  answer  with  a  space. 
Sometimes  the  scanner  added  an  extra  space  to  the  data  line.  The  extra  space  moves  all 
the  other  answers  one  digit  to  the  right.  The  answers  do  not  match  the  questions. 
Fortunately  this  type  of  error  is  easy  to  detect.  The  number  of  answers  in  each  data  line 
are  the  same,*  therefore^each  data  line  should  be  the  same  length.  I  used  an  ASCII  text 
editor  to  check  the  end  of  each  line.  If  a  line  was  not  the  correct  length,  I  compared  the 
scanned  answers  to  the  original  answer  sheet  to  locate  the  error. 

Analysis  of  the  answers  was  accomplished  with  the  statistical  program  "SPSS."  1 
created  a  DERAIL  file  by  combining  all  the  part  II  files  into  one  data  file  named 
DERAIL.  Before  combining  the  data  files,  I  inserted  a  letter  after  the  ID  number.  The 
letter  is  needed  to  identify  the  data  as  Self,  Peer,  Superior,  or  Subordinate.  I  used  "A" 
for  Superior,  "B"  for  Peer,  "C  for  Superior,  and  "D"  for  Self.  I  recommend  that  in  the 
future  SPSS  use  the  four  separate  part  II  files  as  input.  This  change  will  eliminate  the 
need  for  aeating  a  DERAIL  file. 

The  SPSS  analysis  of  the  data  created  two  data  files  containing  average  scores  for  the 
FeedBack  program.  Names  of  the  Feedback  data  files  must  end  with  ".POS"  for  the 
Success  Factors  and  ".NEG"  for  the  Failure  Factors.  The  NEG  file  created  by  SPSS  was 
ready  for  printing  using  the  FeedBack  program. 

The  POS  file  had  extra  data  and  was  edited  using  an  ASCII  text  editor.  Appendix  C 
contains  instructions  for  converting  the  POS  file  to  the  format  needed  by  the  FeedBack 
program.  I  recommend  that  in  the  future  SPSS  create  a  POS  file  without  the  extra  data. 
The  correct  format  for  the  POS  and  NEG  FeedBack  data  files  is  listed  in  Appendix  D. 
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FEEDBACK  DOCUMENTATION 


1  wrote  the  FeedBack  program  using  8086  micro  assembler  language.  It  will  operate 
correctly  on  a  computer  using  an  MS  DOS  or  a  compatible  operating  system.  The 
FeedBack  program  is  designed  to  print  FeedBack  graphs  on  a  Hewlett  Packard  LaserJet 
or  compatible  printer.  A  compatible  printer  must  support  Hewlett  Packard’s  Printer 
Control  Language  (PCL). 

The  FeedBack  program  is  menu  driven  using  a  Lotus  style  menu  bar.  The  first  line 
of  the  menu  lists  the  commands  and  the  second  line  is  a  sentence  describing  the 
highlighted  command.  An  information  box  at  the  bottom  of  the  screen  provides 
instructions  for  operating  the  menu  bar. 

An  important  feature  of  the  FeedBack  program  is  the  use  of  the  <Esc>  key  to 
cancel  a  command.  Users  feel  in  control  of  the  program  when  they  can  undo  a 
command  by  pressing  the  <Esc>  key. 

Between  the  Menu  Bar  and  the  program  title  there  is  a  two  line  Program  Status 
Display.  If  a  data  file  is  open,  it  will  show  the  file  name  and  the  number  of  ID’s 
contained  in  the  file.  Before  the  graphs  can  be  printed,  the  data  file  must  be  ranked  to 
compute  the  percentiles.  The  Program  Stams  Display  informs  the  user  if  the  percentiles 
are  computed.  It  also  lists  the  status  of  the  selected  printer  port.  It  must  say  "printer  is 
ready"  before  the  report  can  be  printed. 

The  term  "printer  is  ready"  is  misleading.  It  means  there  is  a  peripheral  attached  to 
the  LPT  port  that  is  ready  to  receive  data.  FeedBack  assumes  the  peripheral  is  a 
printer.  If  the  user  is  not  sure  which  port  the  printer  is  using,  there  are  two  choices. 

The  easiest  may  be  the  trial  and  error  method.  Make  sure  the  printer  is  turned  on  and 
use  the  "LPT"  command  to  select  one  of  the  three  parallel  ports.  If  FeedBack  says  the 
"printer  is  ready"  try  printing  a  report. 

Another  method  to  locate  the  printer  port  is  to  examine  a  program  that  uses  the 
printer.  The  most  common  printing  program  is  a  word  processor.  Use  the  word 
processors  documentation  to  learn  what  port  the  word  processor  is  iising.  See  Appendix 
E  for  instructions  on  using  WordPerfect  to  learn  the  printer  port  assignment. 

If  the  printer  is  connected  to  one  of  the  COM  ports,  the  DOS  "MODE"  command  can 
be  used  to  redirect  LPTl  to  the  desired  COM  port  Consult  the  DOS  documentation  for 
instructions  on  use  of  the  "MODE"  command.  After  LFTl  has  been  reassigned, 
FeedBack  will  think  it  is  sending  data  to  LPTl  but  DOS  will  be  redirecting  the  output  to 
the  assigned  COM  port.  The  ICAF  graphs  for  the  class  of  93  were  printed  using  a 
computer  with  a  Zenith  DOS  operating  system.  The  21enith  "CONFIGUR"  command 
was  used  to  redirect  the  LPTl  output  to  the  desired  COM  port. 

When  using  the  FeedBack  program  with  a  monochrome  monitor,  check  to  see  if  the 
words  in  the  second  line  of  the  menu  are  clearly  displayed.  If  the  words  are  difficult  to 


3 


read,  restart  FeedB<ick  with  the  command  "FeedBack  m".  Some  laptop  computers  use 
monochrome  monitors  but  operate  in  a  color  video  mode.  The  "m"  command  can  be 
used  to  force  the  Feedback  program  into  the  monochrome  mode. 

When  beginning  the  FeedBack  program,  the  user  should  select  the  "File"  command 
which  allows  FeedBack  to  locate  the  SPSS  files  containing  the  repon  data.  The  name  of 
the  "Positive  Factors"  data  file  ends  with  ".POS".  The  name  of  the  "Failure  Factors"  data 
file  name  ends  with  ".NEG".  Both  data  files  are  stored  in  ASCII  and  can  be  read  using 
an  ASCII  text  editor.  WordPerfect  can  import  the  file  as  a  DOS  text  file.  I  recommend 
not  saving  the  file  from  WordPerfect.  The  data  file  will  be  damaged  if  WordPerfect 
splits  any  of  the  data  lines.  A  da'ta  line  in  the  FeedBack  file  begins  with  a  three 
digit  identification  number  (ID)  ranging  from  "001"  to  "999".  The  FeedBack  program 
reads  the  data  file  one  line  at  a  time.  If  the  first  three  digits  of  the  line  are  an  ID 
number,  the  program  assumes  the  line  is  a  data  line.  See  Appendix  D  for  the  format  of 
the  data  line. 

After  selecting  a  data  file,  it  must  be  ranked  to  allow  FeedBack  to  compute  the 
percentiles  needed  to  produce  the  printout.  The  "Rank"  command  also  locate  any  values 
that  are  larger  than  5.0  or  smaller  than  1.0.  in  the  data  file.  If  an  error  is  found,  the  user 
will  be  shown  the  offending  data  and  given  its  row  and  column  position  in  the  data  file. 
An  ASCII  text  editor  can  be  used  to  correct  any  errors.  After  the  errors  are  corrected, 
use  FeedBack  to  rank  the  file  again  before  printing. 

In  an  ID  data  line,  the  values  are  a  three  digit  ASCII  number.  To  save  space  the 
decimal  point  is  left  out  so  2.35  will  appear  as  "235".  Feedback  rounds  all  of  its  input  to 
two  digits.  "235"  would  become  "2.4"  and  "234"  would  become  "2.3".  Feedback  does  all 
its  error  checking  on  the  rounded  numbers  not  the  original  data  values.  Therefore  a 
5.01  is  out  of  bounds  but  the  rounded  value  is  not,  so  the  value  would  be  accepted.  A 
5.05  would  round  to  5.1  and  would  be  an  error. 

If  the  rank  command  completes  its  task  without  any  errors,  the  ranking  information  is 
added  to  the  end  of  the  data  file.  By  appending  the  ranking  data  to  the  file,  it  allows  the 
ranking  command  to  be  skipped  the  next  time  the  data  file  is  used.  The  ranking 
information  will  appear  at  the  end  of  the  data  file  as  one  long  line  of  numbers.  The 
ranking  data  line  will  always  begin  with  an  ID  number  of  "000"  which  is  a  reserved  ID 
number  and  must  not  be  assigned  to  a  participant.  The  format  for  the  ranking  data  line 
is  listed  in  Appendix  F. 

When  viewing  the  data  file  with  a  text  editor  it  is  advisable  to  remove  the  rank  data 
line.  Many  text  editors  will  split  the  rank  data  into  two  or  more  lines.  The  FeedBack 
program  expects  the  data  in  one  long  line.  The  easiest  way  around  this  potential 
problem  is  to  erase  the  rank  data  line  and  use  the  FeedBack  program  to  rank  the  file 
again. 

It  is  possible  to  rank  a  file  more  than  one  time  without  removing  the  old  "000"  data 
line.  The  last  ranking  will  be  the  one  used  to  print  the  graphs.  The  ranking  information 
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will  not  be  saved  in  the  data  file  if  an  error  is  detected.  If  a  FeedBack  data  file  has 
more  than  one  "000"  data  line,  I  suggest  removing  all  the  "000"  lines  and  asking 
FeedBack  to  rank  the  file. 

Programming  for  future  expansion  was  a  high  priority  in  the  design  of  the  FeedBack 
progranL  Because  the  SLDI  is  under  development  it  will  continue  to  change  and  the 
FeedBack  program  will  need  to  be  updated.  The  names  of  the  current  factors  can  be 
changed  using  an  ASCII  text  editor.  Increasing  the  number  of  factors  requires  making 
small  changes  in  many  sections  of  the  source  code.  It  will  take  approximate  three  days 
to  update  the  source  code  to  increase  the  number  of  factors. 

I  believe  the  SLDI  has  great  potential.  The  survey  questions  must  be  improved  to 
produce  a  wider  range  of  statistically  stable  factors.  The  FeedBack  program  has  the 
potential  to  become  an  expert  system  producing  graphs  and  individualized  analysis. 
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STRATEGIC  LEADER  DEVELOPMENT  INVENTORY  fSLDI) 


GENERAL;  There  are  three  levels  of  leadership:  Direct.  Senior. 
and  Strategic.  Direct  leaders  coininand  units  —  battalions, 
squadrons,  ships,  and,  in  some  instances,  branches  or 
directorates.  Senior  leaders  operate  at  a  level  higher.  They 
connand  organisations  and  face  problens  auch  broader  in  scope  and 
complexity.  Their  leadership  becomes  indirect.  You  get  things 
done  by  working  through  a  large  number  of  "others".  You  can't 
personally  influence  everything  that  needs  to  be  done,  strategic 
leaders  command  Joint/Combined  operations.  They  are  even  more 
removed  from  the  direct  action.  These  are  three  and  four  star 
billets  and  civilian  equivalents. 

Your  selection  for  attendance  at  a  Senior  Service  College 
(SSC)  signifies  you  have  been  successful  diregt  leaders.  The 
SSC  aids  you  in  making  a  critical  transition  —  from  the  Direct 
to  the  Senior  leadership  level.  It  also  exposes  you  to  guest 
speakers  and  other  experiences  so  that  you  can  see  what  the 
requirements  of  Strategic  leaders  are. 

A  specific  rationale  is  behind  the  development  of  this 
instrument  and  two  theories  support  the  rationale.  The  specific 
rationale  and  two  theories  will  be  briefly  explained.  Then,  each 
factor  assessed  with  the  SLDI  is  described. 

SPECIFIC  RATICaJALE  FOR  THE  SLDIt  The  SLDI  is  an  assessment  tool. 
You  learn  more  about  yourself  with  the  data  it  provides.  The 
logic  behind  the  SLDI  is  very  simple.  You  must  accurately  know 
YQurself_befQre  vour  can  accurately  assess  and  understand  the 
gxcsnqths  ..antiLveaKDgggftg .  qt  •  you  cannot  be  a  good  leader 

without  adequate  self -knowledge. 

YQii-iBUSt_know_.VQurself  for  .another  important  reason.  You 
ganpot  develop  yourself  without  this  information.  This  will 
probably  be  your  final  school  assignment.  Development  beyond 
this  assignment  will  be  your  responsibility. 

The  SLDI  taps  multiple  frames  of  reference;  Yours  and  those 
of  your  peers,  subordinates,  and  superiors.  You  can 
"triangulate"  from  these  I'Utiple  perspectives  to  form  a  more 
rounded  and  accurate  understanding  of  your  strengths  and 
weaknesses . 

THEORIES  UNDERLYING  THE  SLDI;  Elliot  Jaques*  and  Robert  Kegan's 
theories  underlie  the  SLDI's  factors  we'll  define  later. 

Jaques'  theory  states  individuals  varv  in  ability  to  deal 
with  abstraction  and  complexity  in  thought  processing.  Direct, 
senior,  and  strategic  l^r'fers  must  use  successively  more  complex 
thought  processing  because  the  conceptual  demands  of  the- 
positions  they  occupy  become  progressively  more  difficult.  The 
problems  to  be  solved  become  more  and  more  unstructured  or  non¬ 
routine. 
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Senior  and  strategic  leaders  must  develop  a  vision  of 
desired  future  states,  develop  plans  to  achieve  them,  and 
proactively  manage  the  process  of  getting  there.  How  far  you  can 
project  plans  ahead  for  your  work  is  an  indicator  of  the 
complexity  you  bring  to  the  job.  Table  1  summarizes  the 
variables  being  described  here.  It  shows  the  timespans  — 
"planning  horizons"  associated  by  organizational  level  using 
the  Army  as  an  example.  Business  organization  ecpiivalents  are 
also  sho%m. 


1  TIMESPAN 

WORK  LEVEL 

MILITARY 

BUSINESS 

1  50  YRS 

VII 

ARMY 

(General) 

CORPORATION 

1  20  YRS 

VI 

CORPS 

(Lt.  General) 

GROUP 

10  YRS 

V 

DIVISION 
(Ma j .  General ) 

STRATEGIC  UNIT 

5  YRS 

IV 

BRIGADE 
(Brig  General/ 
Colonel) 

GENERAL 

MANAGEMENT 

2  YRS 

III 

BATTALION 
(Lt.  Colonel) 

OPERATING  UNIT 

1  YR 

II 

COMPANY 

(Captain) 

SECTION 

3  MTHS 

I 

PLATOONS 

SQUADS 

(NCOS) 

SUPERVISORS , 

OPS  CLERKS 

Table  1.  LEVELS  OF  WORK 

Research  suggests  the  transition  from  Work  Level  III  to  IV 
is  critical  and  difficult  to  make.  You  have  been  conditioned  in 
your  career  to  be  good  at  leading  directly.  It  is  challenging  to 
learn  indirect  leadership  skills.  You  will  be  facing  problems 
too  complex  for  you  to  solve  on  your  own.  The  SLDI  is  intended 
to  aid  the  transition  process.  To  make  the  other  major 
transition,  from  work  level  V  to  VI  and  VII,  you  will  most  likely 
be  on  your  own. 

Kegan's  theory  is  about  emotional  maturing.  It  specifies 
where  one's  self-definition  comes  from.  Kegan  believes  there  are 
six  stages  of  maturity  (stage  0  thru  V).  We  won't  describe  them 
all,  only  the  two  we  have  found  apply  to  SSC  students  and  more 
senior  officers.  These  are  stages  III  and  IV.  Based  on 
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empirical  research  done  at  ICAF  and  the  Army  War  College,  we  can 
predict  that  most  of  you  are  in  transition  between  these  two 
stages  and  some  have  reached  the  more  advanced  stage  (IV) . 

If  you  are  in  stage  III,  you  are  not  fully  capable  of  seeing 
yourself  as  you  really  are.  What  you  think  are  "good"  and  "bad'* 
person  characteristics  and  qualities  are  defined  by  your 
organization  and  by  the  society  you  live  in.  People  in  stage  III 
are  sometimes  called  "organization  men  or  women."  They  respect 
their  contemporaries,  appreciate  mutual  and  reciprocal 
relationships,  can  become  a  part  and  product  of  "group  think" 
(they  will  not  usually  take  on  positions  contrary  to  the  norm  for 
fear  of  rejection  and  ridicule)  and  otherwise  define  themselves 
as  their  context  defines  them.  True  selfroerceotion.  what  they 

flgfi-agtyftllY  liKg.  jg  laat  in  an  txttrnttl  _ Thgy  arg  nvt 

vet  emotionally  ready  to  develop  a  definition  and  an  identity  of 
themselves  apart  from  their  primary  reference  group. 

For  you  to  reach  stage  IV,  being  fully  capable  of  self- 
definition,  you  must  accurately  understand  yourself  as  you  are. 
Acceptance  and  accountability  are  vital  keys.  You  can  accomplish 
this  through  a  process  Kegan,  Lewis,  Kuhnert  and  Maginnis  refer 
to  as  "De-Centering."  This  means  stepping  "outside"  yourself  to 
see  yourself  as  others  see  you.  Their  perceptions  may  be 
different  than  yours,  but  still  valid.  You  must  be  able  to 
accept  without  defensiveness  the  differing  perceptions  of  others 
and  synthesize  them  to  form  a  more  objective,  holistic  "picture" 
of  yourself.  The  SLDI  has  been  designed  to  aid  in  developing 
this  more  objective,  holistic  "picture". 

Research  suggests  that  cognitive  and  emotional  development 
are  not  independent.  They  are  inter-related.  SSC  students  need 
to  advance  to  the  fourth  level  of  cognitive  and  ego  development 
to  be  effective  problem  solvers  at  the  senior  leadership  level. 
Otherwise,  they  cannot  "see"  problems  objectively  (and,  thus, 
define  them  correctly)  or  have  the  thinking  capacity  to  deal  with 
them  effectively. 

SLDI  FACTORS. 

Through  an  analysis  process  we  identified  four  "success"  and 
"FAILURE"  factors  from  the  questions  you  and  your  superiors, 
peers,  and  subordinates  answered.  SUCCESS  factors  are  those 
things  that,  if  developed  well,  can  lead  to  successful 
performance  in  successively  higher  positions,  failure  factors 
are  practices  that  could  lead  to  what  has  been  called  "De- 
Railment",  failure  to  achieve  the  potential  one  has.  The  four 
SUCCESS  factors  are  called: 

O  Conceptual  Effectiveness. 

Broad  Perspective  —  understands  the 
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perspectives  of  superiors,  how  the  mission  of 
own  unit  meshes  with  that  of  others,  values 
long  range  planning,  and 'thinks 
strategically. 

Conceptual  Grasp  —  understands  complex 
situations,  is  comfortable  with  paradox  and 
contradiction,  and  can  pinpoint  cause  and 
effect  relationships  in  complex  situations. 

Time  Horizon  —  develops  long-term 
objectives  and  anticipates  resources  for 
achieving  them,  has  a  good  sense  of  how 
future  world  events  may  affect  the  military 
and  works  to  insure  own  initiatives  are 
carried  out  by  successors. 

Analytic  Clarity  —  can  work  from  the 
abstract  to  the  concrete.  This  means 
developing  a  concept  and  then  making  it  a 
reality  -  gets  to  the  heart  of  the  matter 
quickly  and  sorts  out  what  is  important  from 
what  isn't. 

Conceptual  Flexibility  —  willing  to  adjust 
quickly  when  obstacles  are  encountered,  has 
an  understanding  that  guidelines  are  not 
fixed  or  rigid,  remains  focused  when  the 
unexpected  occurs,  and  changes  courses  of 
action  when  new  information  emerges. 

Conceptual  Complexity  —  views  all  sides  of 
a  problem  and  alternative  ways  of  solving 
them,  manages  more  than  one  project  at  a 
time,  considers  many  contingencies  when 
making  operational  plans,  envisions  multiple 
courses  of  action  when  considering  various 
scenarios,  and  integrates  own  plans  with 
those  of  other  units. 

Personal  Objectivity  —  has  a  good  grasp  of 
personal  strengths  and  weaknesses,  maintains 
own  objectivity  when  others  get  caught  up  in 
the  heat  of  the  moment  and  has  a  coherent 
rationale  for  own  actions. 

o  TMff  BttUdinq. 

Judgement/Character  —  able  to  judge 
quality  in  others,  provides  wise  counsel  to 
others,  maintains  a  balance  between  work  and 
personal  life,  has  a  good,  non-hostile  sense 
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of  humor,  shows  confidence  and  humility,  puts 
mission  before  career,  and  sets  high  but 
realistic  standards. 

Communication  Effectiveness  ••  keeps 
subordinates  informed  and  encourages  them  to 
express  disagreement.  You  are  able  to 
understand  subordinates'  points  of  view  and 
their  problems.  You  are  willing  to  tell 
subordinates  things  they  might  not  want  to 
hear  about  themselves  and  help  them  to 
understand  the  bigger  picture,  maintain  a 
sincere  interest  in  what  others  have  to  say, 
are  approachable,  and  listen  well. 

Team  Orientation  —  actively  works  to  build 
effective  teams  without  loosing  sight  of 
individuals.  Empower  others  to  accomplish 
the  mission  and  recognizes  good  performers 
from  those  that  only  "look”  good.  Works  hard 
for  subordinates,  backs  them  when 
appropriate,  delegates  authority  and 
responsibility,  and  shows  interest  in  their 
professional  development. 

Creates  Good  Work  Climate  —  does  not  play 
favorites,  resolves  conflict  among 
subordinates  and  gains  their  trust  and 
support.  Creates  a  supportive  work  context, 
treats  subordinates  fairly,  helps  them  learn 
from  mistakes  and  able  to  get  them  to  be 
effective  without  the  use  of  rank  or 
position. 

Drive/Energy  Level  —  has  high  energy  level 
and  enthusiasm,  a  strong  work  ethic,  hangs  in 
there  when  things  get  tough,  engenders 
enthusiasm  in  subordinates. 

0  Strategic  Potential. 

Manages  Self-Development  —  seeks  to  become 
knowledgeable  in  areas  outside  current  job 
responsibilities;  works  to  correct  own 
weaknesses;  manages  own  career  direction; 
solicits  feedback  to  grow  professionally; 
optimistic  about  the  future. 

Shows  Cultural/Political  Sensitivity  -- 
persuades  others  to  support  desired  actions, 
Ithows  who  to  talk  to  to  get  things  done, 
shows  judgement  in  politically  sensitive 
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natters,  recognizes  the  unique  concerns  of 
ninorities  and  women  in  and  outside  of  the 
military  culture,  accepts  the  fact  that 
politics  are  a  key  part  of  organizational 
life,  recognizes  the  potential  impact  of  the 
external  political  environment  on  own  plans 
and  programs  and  accepts  community  standards 
as  legitimate  constraints  on  personal 
behavior. 

0  Performance  Under  Stress.  Seizes  opportunities  when 
they  arise,  takes  calculated  risks,  takes  charge  in 
crisis  situations,  works  well  under  pressure,  and 
dependable  in  key  situations. 

The  four  FAIUJRE  factors  are: 

0  Limited  Perspective.  This  factor  is  related  to  the 
first  positive  factor,  but  it  is  not  necessarily  “the 
other  side  of  the  coin”.  It  is  defined  by  six 
dimensions  which  are  described  below.  Lower  scores  are 
preferred. 

Technical/Tactical  Incompetence  — >  fails  to 
achieve  technical  competence  in  new  areas, 
fails  to  get  the  facts  straight,  shows  lapses 
of  common  sense,  ignores  important  details, 
judged  by  others  as  being  generally 
technically  ineffective. 

Insulated  inaccessible  to  subordinates, 

generally  is  unapproachable,  favors 
management  by  memorandum  rather  than  through 
face-to-face  communication,  works  within  a 
very  limited  “inner  circle,”  is  secretive  — 
unwilling  to  share  thoughts  with  others. 

Indecisive  —  shrinks  from  making  hard 
decisions.  Easily  Influenced  by  what  others 
think  —  particularly  by  higher  ranking 
officials,  reluctant  to  make  a  decision 
without  achieving  a  consensus,  fails  to  stay 
focused  on  primary  issues.  In  short,  likes 
to  “play  it  safe.” 

Narrow  Perspective  —  cannot  develop  a 
long-term  vision,  tied  to  standard  ways  of 
doing  things,  parochial  —  would  have  a  hard 
time  adapting  to  a  multi-agency  or  joint 
environment,  has  difficulty  being  political 
tdien  necessary,  tends  to  get  bogged  down  in 
details. 
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Lacks  Conceptual  Grasp  —  crisis  oriented  > 
-  always  putting  out  “brush  fires",  reactive 
rather  than  proactive,  prefers  to  work  on  one 
project  at  a  tine  and  be  linear  rather  than 
nulti>l inear  and  integrative. 

Dependent  on  Clear  Structure  —  needs 
extensive  guidance  to  get  things  done, 
displays  generally  an  intolerance  of 
uncertainty,  looks  for  the  perfect  solution 
to  problems. 

O  Egocentric. 

Self-Centered  —  likes  to  draw  attention, 
is  arrogant  and  thinks  the  rules  apply  only 
to  others,  holds  to  own  position  even  in  the 
face  of  contradicting  information,  takes 
special  privileges,  impressed  with  own  rank 
and  status. 

Defensive  —  has  difficulty  recognizing  own 
limitations,  will  not  admit  to  not  having 
all  the  answers,  suspicious  of  others,  reacts 
negatively  to  dissenting  opinions. 

Disregards  Others  —  criticizes 
subordinates  in  front  of  others  and  generally 
“talks  do%m“  to  them,  tends  to  take  credit 
for  others'  work,  and  berates  others  even  for 
honest  mistakes. 

Temperamental  —  acts  impulsively  and 
easily  looses  control,  looses  temper  easily, 
jxmps  to  conclusions,  makes  snap  judgements 
about  people. 

Micromanages  —  gets  bogged  down  in 
details,  nit  picks  about  what  others  have 
done,  insists  on  precision  in  trivial 
matters . 

Inflexible  —  wants  everything  done  own 
way,  generally  autocratic  in  dealing  with 
subordinates. 

Untrusting  —  has  hidden  agendas,  fails  to 
meet  established  deadlines,  gossips  and 
complains  about  others  behind  their  back,  is 
vindictive,  tolerates  back  stabbing, 
encourages  destructive  competition  among 
subordinates. 
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O  Careerist.  Looks  out  for  self  Bore  than  for  others, 
puts  own  career  and  interests  ahead  of  the  goals  of  the 
organization  and  promoting  professional  development  of 
others.  Will  not  "rock  the  boat"  when  needed.  Lets 
others  take  the  heat  for  failures.  Willing  to  abuse 
subordinates  to  further  career. 

0  Unprofessional .  Behaves  with  questionable  ethics, 
uses  foul  language  excessively,  fails  to  maintain 
physical  fitness,  and  "falls  on  sword  over  unimportant 
issues. 

INTERPRETING  THE  SLDI  SUMMARY  DATA  SHEETS. 

Two  Data  Sheets  summarizing  your  scores  on  the  SLOI 
accompany  this  hand-out.  One  covers  the  SUCCESS  factors  and  the 
second  one  covers  the  FAILURE  factors. 

The  average  score  for  self,  peers,  superiors,  and 
subordinates  is  sho%ni  for  each  SUCCESS  a^d  FAILURE  factor.  The 
"diamond"  shows  the  average  of  items  for  vou.  and  your  peers, 
superiors .  and  subordinates  on  each  factor.  These  averages  are 
specific  to  the  particular  individuals  that  provided  assessments 
for  vou.  Pay  particular  attention  to  these  averages  —  they  are 
a  "benchmark"  specific  to  YOU.  Pay  attention  to  the  degree  of 
each  rating  (whether  it  is  "high  or  low"  to  identify  strengths 
and  weaknesses)  and  to  the  discrepancies  between  your  assessments 
of  self  and  the  assessments  of  each  of  the  other  reference 
groups.  Large  discrepancies  mean  that  others  are  not  perceiving 
you  as  you  perceive  yourself.  This  can  be  a  problem  for  reasons 
already  stated.  On  the  other  hand,  you  may  have  intentionally 
caused  the  discrepancies  because  you  made  a  conscious  decision  to 
portray  yourself  differently  to  each  of  the  reference  groups. 

You  may  be  the  only  one  who  can  assess  what  the  reasons  for  any 
large  discrepancies  between  how  you  rated  yourself  and  others 
rated  you. 

The  light  and  dark  shaded  bars  are  used  to  display  normative 
information.  These  bars  show  the  range  of  scores  across  all 
respondents  of  each  type.  Also  coded  within  each  bar  are  the 
25th,  50th,  and  75th  percentiles.  This  allows  you  to  see  where 
the  scores  you  provided  about  yourself,  by  your  peers,  superiors, 
and  subordinates  are  located  with  respect  to  all  such  ratings 
provided  for  the  entire  class  of  '93.  A  legend  defining  the 
percentiles  is  at  the  bottom  of  each  summary  sheet.  Anchors  for 
the  factor  rating  scale  are  shown  at  the  top  of  each  summary. 

Note  that  for  the  SUCCESS  factors,  higher  scores  are  better.  For 
the  FAILURE  factors,  lower  score  are  better. 
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APPENDIX  C: 


Converting  the  POS  File 


strategic  Laadar  Davalopmant  Inventory 


For  tho  XCAF  data  prlntad  in  August  of  92  tha  SPSS  program 
craatad  a  POS  data  fila  with  tha  format  listad  balow.  This  fila 
was  aditad  bafora  it  can  ba  usad  by  tha  FaadBack  program.  I 
usad  an  ASCII  taxt  aditor  to  mova  and  dalata  soma  columns.  Saa 
Appandix  D  for  tha  corract  forsiat  of  tha  POS  and  MIG  data  filas . 


Original  Naw 

Columns 

Columns 

1-3 

1-3 

4-6 

dalata 

7-9 

dalata 

10-12 

10-12 

13-15 

dalata 

16-18 

4-6 

19-21 

dalata 

22-24 

dalata 

25-27 

dalata 

28-30 

dalata 

31-33 

7-9 

35-36 

dalata 

37-39 

13-15 

40-42 

16-18 

43-45 

19-21 

46-48 

22-24 

49-51 

25-27 

52-54 

28-30 

55-57 

31-33 

58-60 

34-36 

61-63 

37-39 

64-66 

40-42 

67-69 

43-45 

70-72 

46-48 

73-75 

49-51 

ID  numbar  ranga:  '001'  to  '499' 

raw  scoras  forsiat:  2.03  will  ba 


Saif  on  Concaptual  Effactivanass  (Saif  vs 
Saif  on  Taam  Building  (Saif  vs 
Saif  on  Stratagic  Potantial  (Saif  vs 
Saif  on  Parformanca  Ondar  Strass  (Saif  vs 
Saif  on  Concaptual  Effactivanass  (Saif  vs 
Saif  on  Taam  Building  (Saif  vs 
Saif  on  Stratagic  Potantial  (Saif  vs 
Saif  on  Parformanca  Ondar  Strass  (Saif  vs 
Saif  on  Concaptual  Effactivanass  (Saif  vs 
Saif  on  Taam  Building  (Saif  vs 
Saif  on  Stratagic  Potantial  (Saif  vs 
Saif  on  Parfonsanea  Ondar  Strass  (Saif  vs 


Paar  maan  on  Concaptual  Effactivanass 

Paar  maan  on  Taam  Building 

Paar  maan  on  Stratagic  Potantial 


"203" 

Paars) 

Paars) 

Paars) 

Paars) 

Sup.) 
Sup.) 
Sup.: 
Sup.) 
Sub. ) 
Sub.) 
Sub. ) 
Sub.) 


Paar  maan  on  Parformanca  Ondar  Strass 
Supariors  maan  on  Concaptual  Effactivanass 
Supariors  maan  on  Taam  Building 
Supariors  maan  on  Stratagic  Potantial 
Supariors  maan  on  Parforsianca  Ondar  Strass 
Subordinatas  maan  on  Concaptual  Effactivanass 
Subordinatas  maan  on  Taam  Building 
Subordinatas  maan  on  Stratagic  Potantial 
Subordinatas  maan  on  Parformanca  Ondar  Strass 
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APPENDIX  D: 

Format  for  FeedBack  Data  Files 


D-l 


strategic  Laadar  Davalopmant  Invantory 

Llntt  fomat  of  input  ASCZX  data  filat: 

DOS  Fila  aaaa:  *.FOS  «  Poaitlva  Factors  data  fila. 

Coluans  format  for  a  aaeb  data  lina  of  tha  .FOS  data  fila: 


Coluans 

1*>3  ZD  auabar  ranga:  '001'  to  '999' 

raw  sooras  format:  2.03  will  ba  "203" 
4-6  Saif  on  Coneaptual  Iffaetivanass  (Saif  ws  Sv^riors) 

7-9  Saif  on  Taaa  Building  (Saif  ws  Subordinatas) 

10-12  Saif  on  Stratagie  Fotantial  (Saif  vs  Faars) 

13-15  Saif  on  ParfoxiMnea  Undar  Straas  (Saif  vs  Subordinatas) 

16-18  Paar  aaan  on  Coneaptual  Bffaetivanass 

19-21  Paar  aaan  on  Taaa  Building 

22-24  Paar  aaan  on  Stratagie  Potantial 

25-27  Paar  aaan  on  Parforaanea  Ondar  Strass 

28-30  Supariors  aaan  on  Coneaptual  Bffaetivanass 

31-33  Supariors  aaan  on  Taaa  Building 

34-36  Supariors  aaan  on  Stratagie  Potantial 

37-39  Supariors  aaan  on  Parfozsumea  Ondar  Strass 

40-42  Subordinatas  aaan  on  Coneaptual  Bffaetivanass 

43-45  Stibordinatas  aaan  on  Taaa  Building 

46-48  Subordinatas  aaan  on  Stratagie  Potantial 

49-51  Subordinatas  aaan  on  Parforaanea  Ondar  Strass 


DOS  Fila  naaa:  *.1116  »  Nagativa  Factors  data  fila 

Columns  format  for  a  aaeb  data  lina  of  tha  .NBC  data  fila: 


Columns 

1-3  ZD  nuabar  ranga:  '001'  to  '999' 

raw  seoras  format:  2.03  will  ba  ”203" 
4-6  Saif  on  Lisiitad  Parspaetiva 

7-9  Saif  on  Bgocantric 

10-12  Saif  on  Caraarist 

13-15  Saif  on  Onprofassional 

16-18  Paar  aaan  on  Zdjsitad  Parspaetiva 
19-21  Paar  aaan  on  Bgocantric 

22-24  Paar  sMan  on  Caraarist 

25-27  Paar  aaan  on  Onprofassional 

28-30  Supariors  aaaa  on  Zdsdtad  Farspactiva 

31-33  Supariors  aaan  on  Bgocantric 

34-36  Supariors  aaan  on  Caraarist 

37-39  Supariors  sMan  on  Onprofassional 

40-42  Subordinatas  aaan  on  Zdaitad  Farspactiva 

43-45  Subordinatas  SMan  on  Bgocantric 

46-48  Subordinatas  aaan  on  Caraarist 

49-51  Subordinatas  aaan  on  Onprofassional 
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APPENDIX  E: 

Locating  WordPerfect’s  Printer  Port 


E-l 


To  US*  WordPerfect  to  discover  the  printer  port  essignsMnt 
use  following  steps: 


1.  Start  the  WP  program. 

If  you  make  a  mistake  in  steps  2-5  use  the  FI  key  to 
cancel  the  command. 


2.  Dse  the  8hift-F7  command  to  bring  up  the  print  swnu. 


3.  Use  the  "S"  command  to  display  the  Select  Printer  screen. 


4.  Use  the  "Sdit"  command  listed  at  the  bottom  of  the  screen. 


5.  The  edit  screen  lists  the  current  port  assignment 
on  the  upper  half  of  the  screen.  Zt  should  say  port: 
LPTl,  LPT2,  or  LPT3. 

Zf  it  says  com  or  CCM2  FeedBack  cannot  be  used  on  this 
computer  unless  the  DOS  'NODS'  command  has  been  used  to 
reassign  the  LPT  port  to  the  listed  CON  port. 


€.  To  return  to  the  main  screen  without  staking  any  changes  to 
WordPerfect,  press  the  FI  key  until  the  word  processing 

screen  appears. 


7.  Use  the  F7  command  to  exit  WordPerfect. 
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APPENDIX  F: 

Format  for  FeedBack  Variable  Strings 
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strategic  Leader  Development  Inventory 

Offsets  in  data  [Fll«Bufl  «nd  [P.rCat]  mmmoxy  strings 


Osts  rils  Columns: 

(3  ascii  bytas) 

[PillaBuf] 

(3  ascii  bytas) 

Low 

[Parent] 
High  Mad 

25% 

75% 

1-3 

2D  nuabar 

0-2 

(ascii  words) 

Saif  Data  Locations 

4-6 

Saif  Dial 

3-5 

5 

7 

9 

11 

13 

7-9 

Saif  Dia2 

6-8 

15 

17 

19 

21 

23 

10-12 

Saif  Dia3 

9-11 

25 

27 

29 

31 

33 

13-15 

Saif  Dia4 

12  -  14 

35 

37 

39 

41 

43 

Paars  Data  Locations 

16-18 

Paar  Dial 

15  -  17 

45 

47 

49 

51 

53 

19-21 

Paar  Di8i2 

18  -  20 

55 

57 

59 

61 

63 

22-24 

Paar  Di8i3 

21  -  23 

65 

67 

69 

71 

73 

25-27 

Paar  Dia4 

24  -  26 

75 

77 

79 

81 

83 

Superiors  Data  Locations 

28-30 

Supr  Dial 

27  -  29 

85 

87 

89 

91 

93 

31-33 

Supr  Dia2 

30  -  32 

95 

97 

99 

101 

103 

34-36 

Supr  Dia3 

33  -  35 

105 

107 

109 

111 

113 

37-39 

Supr  Dia4 

36  -  38 

115 

117 

119 

121 

123 

Subordinates  Data 

Locations 

40-42 

Subd  Dial 

39  -  41 

125 

127 

129 

131 

133 

43-45 

Subd  Dia2 

42  -  44 

135 

137 

139 

141 

143 

46-48 

Subd  Di8i3 

45  -  47 

145 

147 

149 

151 

153 

49-51 

Subd  Dia4 

48  -  50 

155 

157 

159 

161 

163 
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APPENDIX  G: 

Source  Code  for  the  FeedBack  Program 


G-l 


;FMcffiacicASM  Summer  1902  James  E.  Hopkins 

;A  program  to  prM  Strategic  Leeder  Devaioment  Inwentory's 
iseif  feedback  reports  on  a  HP  Laser  Jet  prMer. 

.MODEL  small 

8TACKSIZE  EQU  2024 
.STACK  STACKSiZE 


INCLUDE  FBD.ASM 
INCLUDE  FBRJkSM 
INCLUDE  FBA.ASM 
INCLUDE  FBBJLSM 
INCLUDE  FBbLASM 
INCLUDE  PBTJkSM 
INCLUDE  PBUJkSM 
INCLUDE  FBSJLSM 
INaUDE  FBF.ASM 
INCLUDE  FBE  JkSM 
INCLUDE  FBN.ASM 

.DATA 

ErrCodedb  0 

;note;  If  Debug  is  ON  the  printing 

Debug  db  0 

I 

;videodata 
Vidmodedb  0 
vidpage  db  0 
vidcursdw  0 
vidfont  dw  0 
vktattr  db  07h 
vidbord  db  07h 
■ 

;Color  variables 
Color  db  07h 
System  db  07h 

Menu  db  0 

Normal  db  07h 

HiUte  db  0 
MenuMesdb  0 
Vl^wningdb  0 
Border  db  0 
• 

;Memory  Block  variables 
VarSeg  dw  0 

DkSeg  dw  0 

MaxFIedb  0 
MaxDim  db  0 
BarPos  dw  OlOlh 


'.data  for  printer  proc 
:tanking  procedures 
;print  procedures 
;prfnlsr  subroutines 
:manu  procedures 
;ttle  procedures 
;unkraraal  procedures 
;seiect  fie  procudures 
ile  procudures 
;edk  path  procedures 
;input  ID  number  proc 

:the  data  segment 
;ret  error  meg  to  DOS 
wM  be  twice  as  long. 

;0  -  OFF  Other  -  ON 


;videomode 
;videopage 
icueortype 
;fbnt  size 

'.default  U  WNte/Black 
;border  color 


;active  color 
;defBUlt  Lt  Whke/Black 
:Monu  mMn  color 
;Main  display  screen 
;display  screen  tMes 
;menu  messages  line 
;accent  color 
;di8play  screen  box 


;aeg  of  var  mem  block 
;seg  of  dir  mem  block 
'.number  of  flee  0-2S0 
;number  of  diminisions 
;posltion  of  hllte  bar 
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;D«ti  n*  variables 


PoeTyp  db 
NegTyp  db 
FITyp  db 
FlaNa  db 
SaarNa  db 
FleHd  dw 
FleOr  db 
DalaEr  db 
EOF  db 
Report  (ft) 
Ranked  db 
Max^to  &M 


‘.POS’.0 

’.NE6‘.0 

■.SLD’.0 

•????????.SLD’.0 

•7???????.SLD’.0 

0 

0 

0 

0 

0 


0 

0 


;Poaltive  dim  data  type 
;Dendment  dim  data 
iletype 

UKSOIZfleiwme 
:ASQIZ  fie  name 
ifle  hande 

,0  >  default.  1  «  A  ale 
;0  -  FALSE  Other  -  TRUE 
;0  «  FALSE  Other  -  TRUE 
;0  -  Poe.  Other  -  Meg. 

;0  -  NO  Other  -  YES 
.number  of  iO'a  in  He 


;buRdr  used  for  data  storage: 

Fttxif  db  192  OUP  (0h).0h  dto  data  input 

;  Lowest.  Highest.  Median.  2Sth  and  75th  persentles  for  4  grot^M 
;  and  4  dimensions  *  160  bytes 

;Oata  format:  OOh.OAh.l.D.#.iowest.  hf^iest.  median.  25%.  75%  etc  stored  in  ASCii 
PeiCnt  db  192  OUP  (Oh).Oh 


I 

;PrirSer  port  (the  program  expects  an  HP  Laser  Jet  aa^^gned  to  a  paralel  port) 
LPT  dw  0  idefault  -  LPT1 

:0  -  LPT1.  1  -  LPT2.  &  3  -  LPT3 


-.Path  Editor  variabies 
Path  db  82  DUP  (Oh) 

input  db  82  DUP  (Oh) 

Search  db  82  DUP  (Oh) 
Digit  db  1 

Insert  db  0 

EndFId  db  0 


linput  ASaiZ  string. 

;0  -  OFF  Other  -  ON 
;0  »  OFF  Other  -  ON 
:0  -  OFF  Other  -  ON 


9 

;Sound  strkrg 

Beep  dw  6000.2.4500.2.0 
.CODE 

MAIN: 

; - Determkie  Color  and  Graphics  Mode 

MOV  AX.@data 
MOV  DSM 
CALL  COLOR  MODE 
CALL  TEXT_VrDEO 

; - Main  procedure  for  FeedBack 

CALL  INTERRUPT  HANDLER 
CALL  RELEASE_MEM 
JC  Error 
CAa  MAIN_MENU 
X  Error  “ 

CALL  CLO$E_RLE 
X  Error 

. "Exit  to  DOS 

Exit:  CALL  RESTORE_VIDEO 


;the  code  se^nerl 


;get  data  segment 
;put  in  data  segmert  reg 
;defkie  default  colors 
;save  default  settings 

;INT23  &  INT24  harxflers 
;taiease  unused  memory 
;dispiay  Dos  error 

;Pro(pam’s  MAIN  LOOP 
;display  Dos  error 

;ci08e  SLDi  fie  if  open 
;dl8play  DOS  error. 

;progam  dways  erxls  here 
;re8tore  users  settings 


MOV  AL,(ErrCod«l 
MOV  AH.4Ch 
INT  21h 

; - End  of  Main  porcedure  for  FeedBm:k 

Error.  CAa  DiSPUY  ERROR 
JMP  SHORT  E}A 

; - End  of  the  source  code 

END  MAIN 

.DATA 

; —  HP  POL  strings  used  to  position  a  point  on  the  graph 

NextNo  db  32,lBh,'&k2S',1Bh,'&a-»-19C',lBh.‘&k0S‘,0  .space  19  comp,  spaces 
NextUn  db  1Bh.’&lblSMBh,‘&a+2C‘,lBh.‘&k0S‘.O  .2  compressed  spaces 
HaMSp  db  1Bh.’&i(2SMBh.'&a+lCMBh.’&k0S‘.0  ;1  compressed  spaces 

Back^  db  1Bh,’&k2SMBh,'&a-lCMBh,‘&k0S‘.O  ;1  compressed  spaces 

FuHBk  db  lBh.*&k2SMBh,'&a-2C',1Bh.‘&k0S',0  ;l  compressed  spaces 

t 

; —  HP  POL  strings  used  by  printing  procedures 

Heder  db  1Bh.’(s3BSTRATEGIC  LEADER  DEVELOPMENT  INVENTORr.O 

iDstr  db  'ID  Number:  ’ 

ID  db  ’123’.0  :3  digit  ASOt  number 

Post  db  lBh.’&a-t-23CMBh,‘&fOSSuccess  FactorsMBh.‘&flSMBh.’&a+2R’ 

db  lBh.*&a43C'.1Bh,'(sOB'  ;po8trow/coi  &  unboid 

db  ’  I  MBh,'&k2SMBh.’&a-lCMBh.'&kOS^' 
db  1Bh,’&k2S’.1Bh.'&a>lCMBh,‘AkOS-' 
db  1Bh.'&k2SMBh.'&a-lCMBh.'&l(0S<’ 
db  'Below  Average  Better  Than  Most  The  Best  ‘ 
db  1Bh.'&k2S’.lBh,'&a-lC'.lBh,'&kOS-’ 
db  1Bh.’&k2S'.lBh.’&a-lC',1Bh.'&kOS-’ 
db  1Bh,’&k2S’.1Bh,'&a-lC',lBh,'&kOS^’ 
db  1Bh.'&k2S'.lBh.’&a-lC',lBh,’&kOS  I ' 

db  1Bh.’(83B'.0  ;boid  and  EndOfString 

NegT  db  1Bh.’&a+23C’.1Bh,'&IOSFalure  Factore',lBh,'&flS’.1Bh,’&a+2R’ 

db  1Bh,’&a-»-3C',1Bh,'(sOB’  ;posLrow/col  &  unbold 

db  ’|’.lBh,'&l<2S’,lBh,'&a-lC'.1Bh,’&kOS^' 
db  1Bh.'&k2S'.lBh,’&a-lC’.lBh.'&kOS-’ 
db  1Bh.’&k2S’.1Bh.’&a-1C’,1Bh.’&kOS-' 
db  'Never  Occasionally  Always ' 

db  1Bh.'&k2S',1Bh,'&a-lC,1Bh.'&l(0S-' 
db  1Bh,'&k2S'.lBh,'&a-lC',lBh,'&kOS-' 
db  1Bh,'&k2S'.lBh.'&a-lC'.lBh,'&l(0S^' 
db  1Bh,'&l(2S'.lBh.'&a-lC'.lBh,'&kOS  | ' 
db  1Bh.'(s3B'.0  ;bold  and  EndOfString 

DTstr  db  'Scored: ' 

Date  db  '07/24/92‘.0  ;fle  date 

bistr  db  'DIMENSiONS:'.1Bh,'(80B'.0  ;unBoid,  EndStMarker 


iioad  errorlevel  number 
:Exit  function  nunnber 
;retumto  DOS 

;show  DOS  extend  error 
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FFeed  db 

OCh.0 

iformfaed  string 

Point  db 

4,0 

:4  -  “tr 

Median  db 

186.0 

:179  -  *r 

Left  db 

179.0 

:i79--|* 

Right  db 

179.0 

;179  -  -f 

UntU  db 

177.0 

:177  - 

UrtOk  (tt> 

178.0 

:178  - 

TanLT  db  13  OUP  (177),0 

TenOk  <tt)  13  DUP  (178).0 

; — An  HP  PCL  string  ussd  by  lnitlaHze_K^  proosdurs 


ink  db 

IBh.'E’ 

:reeet  printer 

db 

lBh.'&ilO' 

;landscspe 

db 

1dh.’&kOS’ 

;10.0  cpi 

db 

1Bh.'(10U' 

;PC-8  symbol  set 

db 

1Bh.'(s0P'.0 

;Fb(ed  spacing 

; — An  HP  PCL  string  used  by  Restore  HP  procedure 

Rest  db 

lBh.’&iOO* 

iportiait 

db 

1Bh.'(8U' 

;Roman<8  symbol  set 

db 

1Bh.’(slP’ 

;Proportionai  spacing 

db 

1Bh.’E’.0 

;resat  printer 

; — An  HP  PCL  string  used  by  HPGOTOYX  procedure 


QoTo 

db 

lBh.’&a’ 

:set  hp  laser  to 

col 

dw 

0 

;ASC  li  coiwnn  number 

db 

’C’.lBh.’4a’ 

'.set  hp  laser  to 

row 

dw 

0 

;ASC  li  row  number 

db 

’R’.0 

;end  of  string  marker 

; — An  HP  PCL  string  to  draw  a  graphing  box  and  the  prasert  cursor  position 
Box  db  lBh,'&fOS  Raw  Scores:  1'  istaiting  Push 

;ticfcsand  *2* 

db  1Bh,‘&k2S . MBh,'&kDS'  ;coinprassed  mode 

db  1  Bh, 'BIOS’, OAh, 194, 1  Bh.'&f1  S'  ;top  tick  mark 

db  1Bh,'&fOS’,lBh,’&a-»-6R’,193.1Bh,'&flS2’  ;bottom  tick  and  *2* 

;ticks  arxl  *3* 

db  1Bh,’&k2S . ',1Bh,'&kOS'  ;compressed  mode 

db  1Bh,'&K)S',0Ah,194,lBh,'&flS’  ;top  tick  mark 

db  lBh,’&iOS',lBh,'&a+6R’,193,lBh,'&flS3'  ;bottom  tick  and  *3' 

iticks  and  '4' 

db  1Bh,’&k2S . ’,lBh,'&kOS'  ;comprassed  mode 

db  1Bh,’&fOS'.OAh,l94,lBh,’&f1S'  ;top  tick  mark 

db  1Bh,’&fOS',lBh,'aa+6R’,193.1Bh,’&flS4’  ;boltom  tick  and  *4' 

licks  and  *5* 

db  1Bh,'ftk2S . ’.1Bh.’&kOS5'  ;comprass  and  '5* 

db  1Bh,’ftflS’,0Ah  ;endlng  Pop  *  ikiefeed  -  next  iine 

;topline 

db  lBh.’&IDS’,218,13  DUP  (196),194.48  OUP  (196).191 
db  1Bh,'&f1S’,0Ah  :next  line 

jseif  iine 

db  lBh.’&f0S‘,179,’  Setf  ’,179,lBh.’&a-^49C'.179 

db  1Bh,’&flS’,0Ah  ;nexttine 

;peer8iine 

db  1Bh,’&iOS’,179,’  Peers  ’,179,1Bh,’&a-i^49C'.179 

db  lBh.’&f1S’,0Ah  .next  iine 
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;supcriora  Hiw 

db  lBh.‘&f08M79.'  Superiors  M79.lBh.’&a-»^49C.l79 

db  lBh.'&flS‘,OAh  :next  Une 

;euboidinetee  line 

db  lBh.’&fOSM79,'Subofdinetes  M79,iBh;«e-i'4QC‘.l79 
db  1Bh.’&f1S‘.0Ah  ;neKtline 

iboltom  Ibie 

db  192.13  OUP  (1i!S).193. 49  OUP  (196).217,0  ;EndOfString  mwker 
; — An  HP  PCL  tblrtg  to  drewr  a  graphing  box  and  the  preeent  cursor  poeMon 
Inform  db  lBh.'ftR)S'.218.63  DUP  (196).191 

db  lBh,’&flS’.OAh  ;nextllne 

;self  line 

db  1Bh.*aiOSM79 

db  ’  «  Score  I  >  2S%  II  «  50%  I  -  75%  i  and  iiii  -  Range 

db  l79.lBh.‘&f1S'.0Ah  ;nsKt  line 

'.bottom  line 

db  192. 63  DUP  (196).217.0  ;EndOIStrlng  marker 

; — An  HP  PCL  string  to  label  PostKre  Dimension  #1 
Post  db  lBh,‘(s3B‘  ;boidON 

db  'CONCEPTUAL  EFFECTIVENESS’ 

db  lBh.‘(80B'  ;bold  OFF 

db  0  :current  EndOfString 

; — An  HP  PCL  string  to  label  Poetive  Dimension  #2 
Pos2  db  lBh.'(s3B'  ;boidON 

db  TEAM  BUILDINQ' 

db  lBh.‘(sOB'  :bold  OFF 

db  0  ;current  EndOfString 

; — An  HP  PCL  string  to  label  Poetive  Dimension  #3 
PosS  db  1Bh.'(83B'  ;boldON 

db  'STRATEGIC  POTENTIAL* 

db  lBh,'(30B'  ;boldOFF 

db  0  icurrent  EndOfString 

; — ^An  HP  PCL  string  to  label  Poetive  Dimension  #4 
Pa.4  db  lBh,’(s3B'  ;boldON 

db  'PERFORMANCE  UNDER  STRESS’ 
db  lBh.’(sOB’  ;boid  OFF 

db  0  {Current  EndOfString 

; — ^An  HP  PCL  string  to  label  Deralmerk  Dimension  #1 
Negl  db  1Bh.'(83B'  {bold  ON 

db  'UMITED  PERSPECTIVE' 

db  lBh.’(sOB'  {bold  OFF 

db  0  {current  EndOfString 

{ — An  HP  PCL  string  to  label  Deraiment  Dimension  #2 
Neg2  db  lBh.’(s3B’  {bold  ON 

db  'EGOCENTRIC 

db  1Bh.’(sOB’  {bold  OFF 

db  0  {current  EndOfString 

{ — An  HP  PCX  string  to  tabei  Deralmeik  Dimension  #3 
Neg3  db  lBh.’(s3B'  {bold  ON 

db  'CAREERIST 

db  lBh.‘(sOB’  {bold  OFF 

db  0  {current  EndOf^ring 
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; — An  HP  PCL  string  to  label  Deralment  Dimansion  #4 
Neg4  db  iBh.‘(a3B’  :boidON 

db  'UNPROFESSIONAL' 
db  lBh,'(sOB’  .bold  OFF 

db  0  ;current  EndO^ring 


CODE 

Rank  the  data  to  compute  kMvest,  2Sth,  SOth.  7!4h  percentlee.  and  last 
Ir^  -  None 

Output  -  V  completed  {Ranked]  <>  0  or  TRUE 

V  [DataEr]  «  0  a  ’000’  data  line  to  appended  to  the  He 
(PerCnt  +  5]  points  to  percenile  variablee 


PROC  RANK  DATA 


PUSH 

ix 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

IS  RANK 

X 

RD5 

CAa 

GET  VAR  BLK 

X 

RD5  ■ 

XOR 

AX.AX 

MOV 

[DataEr].AL 

CAa 

RANK  WAIT  MESS 

CAa 

rank'instru 

MOV 

CX.16" 

RDO:  CAa  READ  VAR 

CMP 

AX.3 

JNC 

RDl 

CAa 

ID  ERR 

JMP 

SHORT  RD2 

RDl:  CAa  PROGRESS  MESS 

CAa 

VAR  SORT 

CAa 

CHECK  DATA 

X 

RD4 

CAa 

STORE  VAR 

; — Check  keyboard  buffer  to  see  If  the 

R02:  MOV 

AX.0600h 

MOV 

DUOFFh 

INT 

21h 

JZ 

RD3 

CMP 

AL,lBh 

JNZ 

R03 

CAa 

ESC  YN 

X 

RD4  ■ 

; — loop  unti  each  column  is  ranked. 
RD3:  LOOP  RDO 
MOV  AL.0FFh 
MOV  [Rankedl.AL 

; - if  no  errors  write  data  line  to  He 

CMP  BYTE  PTR  [DataEr], 0 
JNZ  RD4 


;aave  raf^sters 


;is  He  open,  unranded 
;and  [Maxfto]  >  0  ? 

;create  var  mem  block 
;e)dt  on  DOS  error 
;zerotoax 

iset  data  error  -  False 

:estimate  how  much  time 
;bottom  message  box 
:number  of  var  to  rank 
;one  var  for  a>  ID’s 
ntrere  3  or  more  found? 

;is  Yes  continue  else 
;di8piay  error  message 
;ioop  to  next  variable 
.lea  user  of  progress 
;sort  In  DOS  mem  bock 
;i8  data  in  bounds 
;carry  flag  «  abort 

;get  median.2S%  &  75% 
<E8c>  key  been  pressed? 

;DOS  function  #  6 
:read  tfiar  from  key- 
iboard  buffer. 

;NO  key  pressed  continue 
;wa8  It  the  <ESC>  key? 

;ff  NO  continue 
;V  YES  kdorm  user 
;carry  flag  «  abort 

;foop  laitl  cx  -  0 
;[ranl^<>0  >  TRUE 
;mark  He  ranked 

3ny  errors  found? 

;tf  Yes  exit  else 
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CALL  APPEND_RLE 

; - normal  asdt  poM 

RIM:  CALL  RELEASE  VAR  BLK 
R05:  CLC 

POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  RANK  DATA 


;aave  data  to  fie 

;reiease  mem  var  block 
;re8tore  regteters 


la  the  data  fie  open,  unranked,  and  ID 
Input  -  None 

Output  -  Cany  flag  If  Not  Ready. 
PROC  IS  RANK 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  OX 
; — Is  fie  selected? 

MOV  BX.[FleHd] 

CMP  BXO 
JNZ  RK1 
CALL  RLE  ERR 
JMP  SHOOT  RK4 
; — were  the  percentles  in  the  data  fie? 
RK1:  MOV  CUIRanked] 

CMP  CL.0 
JZ  RK2 
CALL  PERCT  ERR 
JC  RK5 

: — is  MaxNo  >  two  ? 

RK2:  MOV  AX.[MaxNo] 

CMP  AX.3 
JNC  RK5 
CALL  ID  ERR 
RK4:  STC 

RK5:  POP  DX 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  IS  RANK 


>  0 


;save  registers 


;get  fie  hancfle 
;is  a  fie  open? 


;are  percentles  set? 
:ir  NO  goto  next  test 

;Rerankfle? 

;carry  flag  -  NO 


;set  error  flag 
;re8tore  registers 


Input  -  none 
Output  >  none 


;  ID 

ERR 

CALL 

'  CLEAR_MESSAGE 

MOV 

AL,IWarning] 

;warr^  color 

MOV 

CU[Coiorl 

;8ave  original  color 

MOV 

[Color]>kL 

;set  color 

MOV 

AX.020Ah 

;row  3/Col  8 
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CALL  QOTOYX  :aet  cunor 

CALL  CSTR_OUT  :<fl«ptey  wwning 

db  '  Can  riot  rank  vaiuoa  if  loss  than  three  scores.’ 
db  ’  Press  Any  Key.  ’.0 

MOV  [Color], CL  irastore  original  color 

CAa  HIDE  CUR 

CALL  ERR  SOUND 

CALL  GET* CHAR 

RET 

ENDP  ID  ERR 


Ir^MJt  -  none 
Output  -  none 
PROC  PERCT  ERR 

CALL  CL^  MESSAGE 
MOV  AL(W^ing] 

MOV  CL.[Color] 

MOV  [Colorl.AL 
MOV  AX020Bh 
CALL  GOTOYX 
CALL  CSTR_OUT 
db  ’  This  d^  fie  is  already  ranked, 
db  ‘Rank  k  again?  Y/[N]  ',0 
MOV  [Color], CL 

CALL  HIDE  CUR 
CALL  ERR  '^UND 
PERI:  CALL  GET  CHAR 
AND  ALSFh” 

CMP  AL'N' 

JZ  PER3 
CMP  ALODh 
JZ  PER3 
CMP  AU’Y’ 

JNZ  PERI 
PER2:  CLC 

JMP  SHORT  PER4 
PER3:  STC 
PER4;  RET 
ENDP  PERCT  ERR 


;waming  cokx 
;aave  origin^  color 
;set  color 
;roMV  3/Col  8 
;aetctOTor 
;diaplay  \waming 


;restore  origkial  color 


;tum  off  bits  6  &  8 
:is  k  No? 

;if  yesexk 
;to  k  <Enter>? 

;lf  not  continue 
;is  k  Yes? 

;if  not  get  another 


;clear  carry  flag 


Release  the  memory  variable  block, 
input  >  None 

Output  -  Carry  flag  If  DOS  error 

[VarSeg]  >  starting  segment  address  for  variable  block. 


PROC  RELEASE_VAR_BLK 


PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

XOR 

AX,AX 

;zero  AX 

CMP 

[VarSeg]>0( 

;is  VarSeg  assigned? 

G-9 


;f  not  assigned  go  on 


JZ  REL1 

; - raisaso  assignsd  memory  block 

MOV  AX.(VarS6gl 
MOV  ES^ 

MOV  AX.4000h 
INT  21h 
JC  REL1 

; — MtiaHze  variable 
XOR  MM 
MOV  [VarSeg].AX 
CLC 

RELl:  POP  ES 
POP  OX 
POP  CX 
POP  BX 
RET 

ENDP  RELEASE  VAR  BLK 


;gel  memory  segment 
;piace  In  ES  register 
ireieese  funcdtion  no 
'.reieaae  memory  block 
:l  No  error  continue 

;2erD  to  register 
;aet  memory  bock  to  0 
:cleor  carry  flag 

:restore  regtaters 


;  Create  a  byte  array  to  be  used  to  rank  each  variable. 

Input  «  [MaxNo]  >  0 

Output  «  Carry  flag  if  DOS  error 

[VarSeg]  >  Starting  segment  address  of  memory  block. 

[MaxNo]  -  total  number  ID's  in  the  fie. 

PROC  GET  VAR  BLK 
PUSH  "BX  " 


PUSH 

CX 

PUSH 

OX 

PUSH 

ES 

CAa 

RELEASE  VAR  BLK 

JNC 

CRVO 

;contknje  If  no  error 

JMP 

CRV9 

;extt  on  DOS  error 

CRVO:  MOV  ;X.[MaxNo] 

;get  nunfiber  of  ID’s 

MOV 

0,3 

;no.  bits  to  shift 

SHR 

Ax.a 

;pera9aph  «  ID/8  -1-2 

MOV 

BX.AX 

;paragniph  court  to  BX 

INC 

BX 

;get  an  extra  paragraph 

INC 

BX 

:get  an  extra  paragraph 

MOV 

AH.48h 

;aRocate  men  function 

INT 

21h 

;rec|uest  memory  block 

JC 

CRV2 

:)ump  1  memory  error. 

MOV 

[VarSeg]>0( 

;base  address  of  sag 

JMP 

SHORT  CRV8 

;normai  exit  of  proc. 

CRV2:  MOV  CL,[Coior] 

'.save  original  color 

MOV 

AL,  [Warning] 

;wBming  color 

MOV 

[Color]^ 

;set  color 

MOV 

AX,0207h 

;row/Col 

CALL 

GOTOYX 

;position  cursor 

CALL 

CSTR  OUT 

;send  string  to  screen 

db 

’  Not  enough  memory  to  rank  the  variiUiies. ' 

db 

‘Press  Any  Key  to  Continue. 

'.0 
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;rMtor0  original  color 
;hldo  cursor  off  screen 


MOV  (Colorl.CL 
CALL  HIDE  CUR 
CALL  ERR'kHJND 
CALL  QET’CHAR  for  key  Is  pressed 

STC  ”  carry  flag  -  error 

JMP  SHORT  CRV9 

CRV8:  aC  :clear  carry  flag 

CRV9:  POP  ES 

POP  DX  irestore  regislors 

POP  CX 
POP  BX 
RET 

ENDP  GET  /AR  BLK 


;  Clear  Input  Buffer. 

InptX  »  None 

Output  »  None  192  hex  0  to  [FIBuf] 

PROC  CLEAR  FILBUF 
PUSH  M. 

PUSH  BX 
PUSH  CX 
PUSH  OX 
PUSH  ES 


• - fH  [FlBufl  with  192  hm  O’s 

MOV 

AX.DS 

;Make  ES  -  DS 

MOV 

ES^ 

MOV 

CX.95 

;max  number  of  words 

MOV 

BX.Offset  FIBuf 

'.pointer  to  ASCIIZ  str 

XOR 

AX, AX 

;hex  O’s  to  AX  register 

MOV 

IBX1.AX 

;0  U>  fkst  word  of  str 

MOV 

DI,BX 

;DI  «  pointer  to  next 

INC 

Dl 

:ptr  to  next  word 

INC 

Dl 

MOV 

SI.BX 

;SI  -  ptr  to  hex  O's 

CLO 

;auto  Inc  (X  and  SI 

REP 

MOVSW 

;fB  string  with  O’s 

CLC 

;clear  carry  flag 

POP 

ES 

POP 

DX 

;restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  CLEAR_RLBUF 

Clear  Percentite  variables. 

Inpirt  «  None 

Output  «  None  192  hex  0  to  [PerCnt] 
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PROC  CLEAR  PERCNT 
PUSH  ML 
PUSH  BX 
PUSH  CX 
PUSH  DX 
PUSH  ES 

: - fR  [FIBuq  wKh  182  hsK  O’t 


MOV 

AX.OS 

{Make  ES  -  OS 

MOV 

ESM 

MOV 

CX,96 

{max  number  of  words 

MOV 

BX.Offaet  PerCnt 

'.polnler  to  ASCiiZ  str 

XOR 

MM 

{hex  0*s  to  AX  registar 

MOV 

[BXiM 

{0  to  first  word  of  str 

MOV 

DI.BX 

{01  >  pointer  to  next 

INC 

Dl 

{ptr  to  next  word 

INC 

Dl 

MOV 

SI.BX 

{SI  -  ptr  to  hex  O’s 

CLD 

{auto  Inc  Dl  and  SI 

REP 

MOVSW 

{fil  string  with  O’s 

CLC 

{dear  carry  flag 

POP 

ES 

POP 

DX 

{restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  CLEAR_PERCNT 


;  Read  a  variable  tor  each  ID  nianber  toito  DOS  menrKxy  block. 

Input  »  None 

Output  -  AX  -  No  of  variablee  to  sort 
Carry  llag  if  DOS  error 

[VarSeg]  >  starting  segment  address  tor  variable  block. 

NOTE:  Offset  tor  each  variable  are  computed  from  the  loop  counter. 
BX  -  stores  offset  ptr  in  memory  bik  or  No  of  variables  found. 

OX  -  stores  offset  in  {FIBuf]  (|^  count  x  3) 

PROC  READ  VAR 


PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

DS 

XOR 

AX^VX 

{zero  AX 

MOV 

BX^ 

{destination  pointer 

CMP 

[VarSeg], AX 

{is  VarSeg  assigned? 

JZ 

RVR9 

{if  not  assifpred  go  on 

{—compute  offset  In  [FIBuf] 

MOV 

AX.CX 

{loop  counter  to  AX 

MOV 

AH,AL 

{save  number  In  AH 

SHL 

AL.1 

{counter  X  2 

ADO 

AIJVH 

{+  org  counter  -  times 

XOR 

AH,AH 

{Convert  to  16  bits 

MOV 

OLOffset  FIBuf 

;start  of  fie  butter 

ADO 

AX.CX 

:add  buffer  to  start 

MOV 

DX.AX 

;aave  ottaet  in  [FISuH 

CALL 

GOTO  TOP 

;raeot  Ne  poirtter 

JC 

RVR9 

;sKtt  on  DOS  error 

; - set  default  ID  string  to  ASCII  zeros 

MOV 

Di.Offaet  ID 

:ptr  to  string  to  IN 

MOV 

AX.3030h 

ASCii  zeros 

MOV 

pij^x 

;piace  lat  two  bytes 

XOR 

AH.AH 

;zaro  *  end  of  string 

INC 

Dl 

'.advance  string  ptr 

INC 

Dl 

MOV 

[DiJAX 

ASCII  0  and  hex  0 

; — locate  ID  number  in  the  data  Ne 

RVRI:  CALL  CLEAR  RLBUF 

;hsK  0‘s  to  Ne  buffer 

CAU 

READ  UNE 

;1  line  from  data  Ne 

JNC 

RVR2" 

:not  EndOfFle 

MOV 

AL,0FFH 

;mark  EndOIFIe  true 

MOV 

[EOFIAL 

;<>  0  »  True 

; - is  this  a  '000*  data  line? 

RVR2:  MOV  CX.3 

‘.loop  counter 

MOV 

Dl, onset  ID 

;ptr  to  ID  number 

MOV 

Si.Ofiset  FIBuf 

;ptr  to  data  fie  line 

CLO 

;auto  Inc  Di  and  Si 

REPZ 

CMPSB 

;are  the  bytes  *  ? 

JZ 

RVR5 

;sidp  If  ID  -  ‘000’ 

; - is  this  an  ID  number  line? 

MOV 

SI.Onset  FIBuf 

;ptr  to  data  fie  fine 

MOV 

CX.3 

;i^  counter 

RVR4:  MOV  AL.[SI] 

.'get  first  byte 

CMP 

AL.'0' 

;is  It  <  ASai  0 

X 

RVR5 

;lf  Yes  read  next  line 

CMP 

AL.V 

;isltadigit? 

JNC 

RVR5 

;l  No  read  next  line 

INC 

SI 

;point  to  next  byte 

LOOP 

RVR4 

;check  next  byte 

: - is  this  the  EndOfUne  or  a  <speces>? 

iNOTE:  this  fitter  is  designed  to  allow  errors  into  the  sorting  array. 


The  CHECK_DATA  procedure  wll  report  faise  data  vaiues. 


MOV 

SI,DX 

;ptr  to  butter  section 

MOV 

AX.2000h 

'ASCII  <apace>,  hex  0 

CMP 

[SI]AH 

;is  k  a  sp^e? 

JZ 

RVRS 

;is  yes  sMp  variable 

CMP 

[SIIAL 

;is  tt  past  EndOfUne? 

JZ 

RVRS 

;V  yes  sMp  varfable 

CALL 

VAR  TO  BLK 

;mo¥e  variable  to  block 

INC 

BX  ■  ■ 

;ptr  to  next  word 

INC  BX 

; - is  this  the  last  line  ? 

RVRS:  XOR  ALAL 

;zero  AX  register 

CMP 

AL.[EOFl 

;is  EndOfFle  TRUE? 

JZ 

RVRI 

;False  «  get  next  line 
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flVR9:  MOV  A}C.BX 
SHR  AX.1 
OC 

POP  DS 
POP  DX 
POP  CX 
POP  BX 
RET 

ENOP  READ  VAR 


;r«lum  no  of  vwiabtM 
;number  of  w  found 
;clMr  cany  flao 

'.rwtora  rtgisterK 


Moui  tiwobyla  ASCII  number  In  data  fie  to  memory  [VarSeg] 
Input  -  BX  -  Offaet  In  [VarSeg] 


DX  «  OffM  m  [FIBuf] 


Output 

-  None 

PROC  VAR  TO  BLK 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

MOV 

AX.(VerSeg] 

;ptr  to  base  of  membik 

MOV 

ES.AX 

:ES  set  to  memory  Uk 

MOV 

SI.DX 

;aource  pointer 

MOV 

DI,BX 

;de8tlnalion  pointer 

INC 

Dl 

;al^  first  word 

INC 

Dl 

MOV 

AL*5' 

;check  for  rounding 

CMP 

[SI  2]J^ 

;round  the  number  ? 

JC 

VTB1 

;if  <  5  «  rio  round 

: - round  the  number 

INC 

SI 

;pointto  unit  byte 

INC 

BYTEPTR  [SI] 

;advance  units  digit 

CMP 

BYTE  PTR  [SI].':' 

;is  It  a  *9’  1  ? 

JNZ 

VTBO 

;OK!  continue 

; — V  over  flow  adjust  both  digits 

MOV 

AL.*0’ 

;ASQlOtoAL 

MOV 

[Sl]^ 

;r8piace  with  zero 

DEC 

SI 

:ptrtensdigft 

INC 

BYTE  PTR  [SI] 

;advance  tens  digit 

JMP 

SHORT  VTB1 

;mowe  rounded  word 

VTBO:  DEC 

SI 

;ptr  to  tens  digit 

<opy  vvord  to  memory  for  sorting 
VTB1:  MOVSW 

CLO  ;clear  carry  flag 

VTB2:  POP  ES 

POP  DX  ;ro8tore  registers 

POP  CX 

POP  BX 

POP  AX 

RET 

ENDP  VAR  TO  BLK 
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- Sort  ttw  Word  Variables  in  [SegVar]. 

Input  -  AX  >  count  of  word  variables. 

Output  >  None 

Note:  this  routine  reassigns  the  DS  and  ES  registars  to  ISegVar] 
Special  Note:  It  dose  not  sort  the  first  word  of  {SegVar]  so 
ranMng  variables  begin  at  [SegVar]  2  Offset  and 
go  to  (2  X  numbers  found)  Ofhet 
This  sort  is  based  on  the  fblowing  TPASCAL  procedure: 
PROCEDURE  Sort;  {A  SheN  Sort} 

VAR 

Qap.J :  integer; 

Temp :  string(13]; 

TempNo :  Integer, 

Be(^ 

Gap :»  MaxRec  Div2; 

Whie  gap  >  0  Do 
Begin 

For  I :-  (Gap  1)  to  MaxRec  Do 
Begin 
J  :>  l-Gap; 

WhIe  J  >  0  Do 
Begin 

If  A[J]  >  A[J-»-Gap]  then 
Beg^ 

Temp ;«  AJJ); 

A[J] A{J+(3iap]; 

A[J+Gap] :»  Temp; 

J :»  J-Gap; 

End 

Else  J  :«  0; 

End; 

End; 

Gap  .'-Gap  DIV  2; 

End; 


End; 

The  fbHow  registers  hold  the  above  variables: 


AX  -  Gap;  BX  -  J;  CX  -  1 

;  DX  -  MaxRec;  arxf  BP  -  temp  storage 

PROC  VAR  SORT 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

DS 

PUSH 

ES 

PUSH 

BP 

MOV 

DX.AX 

;store  MaxRec  In  DX 

MOV 

AX.[VarSeg] 

;get  index  base  segment 

MOV 

DS.AX 

;reassignthe  DS&ES 
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MOV 

EBM 

:to  ptr  to  the  Index. 

XOR 

BX,BX 

;zero  buffer  poMer 

MOV 

AX,2020h 

Iwo  spaces  to  pad 

MOV 

[BXiM 

ilrst  two  unused  bytei 

MOV 

AX.DX 

;Gap  >  Maxflec 

SHR 

AX.1 

;Qap  -  Gap  ON  by  2 

VAR81:  CMP  AX.0 

nehen  Gap  -  0  axlL 

JUE 

VARS4 

:axii»<-0 

MOV 

CX>X 

;l  Is  stored  In  CX 

INC 

CX 

;l  >  Gap  *  1 

VARS2:  MOV  BX.CX 

uiInBX 

SUB 

BX^ 

;  j  «  1 .  Gap 

JZ 

VARS3 

isMp  If  J  «  0 

JC 

VARS3 

;sklp IJ  Is  <  0. 

CAa 

COMPARE  VAR 

;repeat  untf  J  -  i 

VARS3:  INC 

CX 

;l  -  1  1 

CMP 

DX.CX 

;ls  1  <  or  -  MaxRec 

sinw 

VARS2 

;lf  yes  then  loop. 

SHR 

AX.1 

;Gap  «  Gap  DN  by  2 

JMP 

SHORT  VARS1 

VARS4:  POP  BP 

:restore  registers 

POP 

ES 

POP 

DS 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

• 

.sort  is  con^iiete. 

- Campare  and  swap  words  tf  needed. 

Input  AX  -  Gap;  BX  -  J;  DS  &  ES  point  to  the  base  of  Index  fie. 


Output  -  (none] 

Items  swaped  in  memory  V  needed 

PROC  COMPARE  VAR 

PUSH  AX 

;save  registers 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  DX.AX 

;save  Gap  in  DX 

Compare  the  first  2  bytes  of  each  pointer 

COMVI:  MOV  BP.BX 

;s8ve  J  in  BP 

ADO  AX.BX 

;AX  -  J  Gap 

SHL  AX.1 

;ptr  to  J-t-Gap  in  mem 

SHL  BX.1 

;ptr  to  J  in  mem 

CLD 

;aukMnc  SI.  Dl 

MOV  DI.AX 

;ollM  olJ  +  Gap 

MOV  SI.BX 

;olfsetof  J 

MOV  CX.2 

;byte  counter 

REPE  CMPSB 

;compare  strings 

JLE  COMV3 

;exlt  if  <  or  >. 

Swap  the  2  bytes  of  Index  record  If  string  A  >  string  A-r-Gap 
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MOV  Di.AX 
MOV  SI.BX 
MOV  AX.[SI] 
MOV  BX.[DI] 
MOV  (SI].BX 
MOV  (Dl]^ 
MOV  AX.DX 
MOV  BX.BP 
SUB  BX.AX 
JZ  COMV3 
JNC  COMV1 

CX>MV3:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  COMPARE  VAR 

ENDP  VAR  sort" 


alj  +  Gap 
;on8at  of  J 
;rMd  wofd  aach  str. 

narita  woid  aach  atr. 

:raatore  gap  to  AX 
:rastora  J  to  BX 
;  J  -  J  •  gap 
:aKit  tf  J  «  0. 
'.continua  I J  >  0. 
:ra8tora  raf^atan 


;ratum  to  ShaM_Sort 


;  Copy  first.la8t.  median.  2Sth  and  TSth  parcantlaa  tha  [Parent]  data  atring. 

Input  >  AX  -  Number  of  variabiaa  found 

Round  AX  to  and  even  number  -  ptr  to  50%  50/2-25%  50%-)-25%-75% 

CX  -  loop  counter  (to  compute  which  varlabia) 

6(cour«ar-1)  -f  5  -  poakion  in  PerCnt 
Output  «  Median  and  25%  and  75%  stored  in  [PaiCnt] 

PROC  STORE  VAR 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

MOV 

DX.AX 

;8ave  number  found 

: - con^a  offset  in  PerCnt  buffer  based  upon  loop  counter 

DEC 

CX 

;loop  count -1 

MOV 

AX.CX 

;countar  -1  to  AL 

MOV 

CLIO 

;multipiier 

MUL 

CL 

'.AX  «  AL  times  10 

ADD 

AX.5 

;offeet  for  median  value 

MOV 

BX.  Offeat  PerCnt 

;begin  of  var  string 

ADD 

BXM 

;BX-  ptr  to  med  varabie 

MOV 

AX.|VarSag] 

:base  of  memory  block 

MOV 

ESM 

;ES  ptr  to  block  sag 

get  the  lowest 

MOV 

DI.2 

;pcr  to  lowest  score 

MOV 

AX.[ES:DI] 

:get  ioweat  score 

MOV 

IBXl^X 

;store  lowest  score 

INC 

BX 

;advance  (perent] 

INC 

BX 

pfvord  pointer. 

gat  the  hic^taat 
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MOV  AX.DX 

;getSO%ptr 

8HL  AX1 

;multiply  by  2 

MOV  OiM 

;ptr  to  highest  score 

MOV  AX.(ES:0I1 

;get  last  score 

MOV  [BX]>X 

;store  last  score 

INC  BX 

‘.acNsnce  [parent] 

INC  BX 

.-word  pointer. 

; - gat  the  50% 

TEST  0L,01h 

;is  the  number  even? 

JZ  STV1 

:tf  Yee  goto  next  test 

INC  OL 

;V  NO  mMw  It  even 

STV1:  MOV  OI.OX 

«)%ptr 

MOV  AX.IES;OI] 

:gat  50%  value 

MOV  [BX]^ 

:atore  50%  value 

INC  BX 

;advance  [perent] 

INC  BX 

iwoid  pointer. 

; — get  the  25%  and  27% 

MOV  AX.DX 

;restore  50%  ptr 

SHR  AX1 

:50%/2  -ptr  to  25% 

TEST  AUOIh 

-.Is  Ote  number  even? 

JZ  STV2 

:l  Yes  goto  nsKt  test 

INC  AX 

;if  NO  make  k  even 

STV2:  MOV  DI.AX 

;25%ptrinDI 

AOO  DXAX 

;75%  ptr  In  DX 

MOV  AX.(ES:DI] 

;get  25%  value 

MOV  (BX].AX 

;atroe  25%  value 

INC  BX 

;advance  [parent] 

INC  BX 

;word  pointer. 

MOV  DI.DX 

;75%ptrtoDI 

MOV  AX.[ES:DI] 

;get  25%  value 

MOV  [BX],AX 

;stroe  25%  value 

CLC 

idear  carry  flag 

F»OP  ES 

POP  DX 

;restore  re^^sters 

POP  CX 

POP  BX 

POP  AX 

RET 

ENDP  STORE^VAR 

Input  -  none 

Output  -  none 

PROC  RANK  WAIT  MESS 

PUSH  M 

PUSH  BX 

PUSH  CX 

PUSH  DX 

; - pieeae  wait  message  to  screen. 

XOR  AX.AX 

;clear  menu  area 

CALL  MENU  BOX 

MOV  CU[C^] 

;save  orl^nal  attri 
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MOV 

AL.  (Warning] 

;waming  color 

MOV 

[Coior]^ 

;setcok)r 

MOV 

AXOIOBh 

;row  3/Col  12 

CALL 

QOTOYX 

:sat  cursor 

CALL 

CSTR  OUT 

idispiay  wsming 

db 

’  Please  wait .  Ranking  the  data  He:  ’.0 

MOV 

AX.  Offset  FleNa 

CALL 

DSTR  OUT 

CALL 

CSTR  OUT 

db 

”.0 

MOV 

(Coiorl.CL 

:re8tore  orlgkiol  attrl 

CALL 

CLC 

HIDE_CUR 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

RET 

AX 

ENDP  RANK_WArr_MESS 

1 

Input  > 

AX  -  niMnber  of  scores 

CX  -  loop  count  16  -  columns  49  •  51 

1 

IS  >  columns  46 

•48  etc 

Output 

«  message  to  the  screen 

PROC  PROGRESS  MESS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

; - pisase  wait  message  to  screen. 

MOV 

BX,AX 

;aave  no.  of  scores 

MOV 

DU(Color] 

;save  original  attrl 

MOV 

AL,(Menuj 

;menu  color 

MOV 

[Coior],AL 

;set  color 

MOV 

AX.0108h 

;row  3/Col  12 

CALL 

GOTOYX 

;set  cursor 

CALL 

CSTR  OUT 

;display  warning 

db 

’  Please  wait .  Ranking  ',0 

MOV 

AX.BX 

;restore  no.  of  scores 

CAa 

BIN  OUT 

CAa 

CSTR  out 

db 

’  scoTM  in  columns  ',0 

MOV 

AX.CX 

;loop  count  to  AX 

SHL 

AX.1 

;mURipller  by  two 

ADO 

AX.CX 

•AX  >  3(loop  court) 

INC 

AX 

CALL 

BIN  OUT 

CALL 

CSfR  OUT 

db 

’and’.0 

INC 

AX 

CALL 

BIN  OUT 

CALL 

CSfR  OUT 
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irettor*  original  am 


db  .0 

MOV  (Coior].OL 
CALL  HIDE  CUR 

etc 

POP  DX 
POP  ex 
POP  BX 
POP  AX 
RET 

ENDP  PROGRESS  MESS 


Check  ends  of  sort  for  out  of  bounds  data. 

Input  -  AX  -  f^jmbar  of  vviabios  found 
Output  «  carry  flag  -  abort  ranking 
EndOfArray  «  Offset  AX  x  2 
BeginOfArray  «  Offset  2 

Note:  The  second  byte  of  out  of  bounds  data  maybe  be  rounded  up  one  ASCII  no. 


PROC  CHECK  DATA 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

SHL 

AX1 

;No.  found  x  2  «  oHaelt 

MOV 

DIJ0( 

;to  EndOfArray 

MOV 

AX.[VarSeg] 

:beae  of  memory  bloc 

MOV 

ES.AX 

;ES  ptr  to  block  seg 

MOV 

AX.[ES:DI] 

;get  end  value 

MOV 

DXM 

leave  value  in  DX 

; — is  endoMrray  value  larger  than  "StT? 

CMP 

AL.’6’ 

;is  digit  >  5 

JNC 

CDK3 

;fl  Yea  then  error 

CMP 

AL.'5' 

;ls  It  -  *57 

JNZ 

CKD1 

;is  Yes  check  for '0' 

CMP 

AH.'0’ 

.is  It  -  '0' 

JNZ 

CDK3 

ll  NO  then  error 

JMP 

SHORT  CKD2 

CKD1:  CMP  AH.':’ 

lisdigit  >  9 

JNC 

COK3 

iff  Yes  then  error 

; - is  beginafarray  valus  less  than  *10*  ? 

CKD2:  MOV  DI.2 

Ito  BeginOfArray 

MOV 

AX.{ES:DI] 

iget  and  value 

MOV 

DXM 

laave  value  in  DX 

CMP 

AL.’1' 

Ito  digfl  <  '17 

JC 

CDK3 

ifl  Yes  ttwn  error 

CMP 

AH.'0' 

Ito  K  <  '07 

JNC 

CDK4 

ifl  NO  then  normal  exit 

; - report  data  error 

COK3:  CALL  DATA^ERR  ;infbrm  user  of  error 
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;restore  registers 


COM:  POP  ES 
POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENOP  CHECK  DATA 


;  Infbnn  user  at  err  found  in  the  dale  fie. 

Input  CX  «  Loop  counter  (used  to  compute  column  number) 

DX  «  WORD  that  is  out  of  bounds 
Output  Carry  flag  >  abort  rankfog 

;Note:  The  second  byte  of  out  of  bounds  data  maybe  be  rounded  up  one  ASCII  no 
;A  2ero  line  no.  meaits  the  GET  LINE  NO  search  taled.  This  should  never  happen! 
PROC  DATA  ERR 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

; - compute  offset  In  (FIBuf] 

MOV 

AX.CX 

{loop  coulter  to  AX 

MOV 

AH^ 

;save  number  in  AH 

SHL 

AL.1 

;eounterx2 

ADD 

AUAH 

;+  org  counter  «  times  3 

XOR 

AH^ 

;convert  to  16  bits 

INC 

AX 

;change  to  1  >  ?  form 

MOV 

CX.AX 

;CX  e  column  no  1-? 

CALL 

GET  UNE  NO 

;line  ffo.  of  error 

JNC 

DAEf 

:BP  -  Word  found 

XOR 

AX.AX 

:0  »  line  not  found???? 

DAEt:  MOV 

BX.AX 

:BX  *  ifoe  no  1  -  ? 

MOV 

AL.  (Warning] 

;waming  color 

MOV 

DL.[Color] 

;save  original  color 

MOV 

[Cofor]>VL 

;set  color 

MOV 

AX.0207h 

;row  3/Col  6 

CALL 

GOTOYX 

;set  cusor 

CAa 

CSTR_OUT 

idlspiay  vvaming 

db  ■ 

Data  Error  in  fie:  ".0 

MOV 

SI.  Offset  ID  +  1 

MOV 

AX.BP 

MOV 

(SIJ^ 

MOV 

AX.SI 

CALL 

DSTR  OUT 

CALL 

CSTR"OUT 

idispiay  warning 

db 

’lnline*.0 

MOV 

AX.BX 

CAa 

BIN  our 

CAa 

CSTR_OUT 

;dispiay  warning 

db 

collie  ‘,0 

MOV 

AX.CX 
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CALL  BIN  OUT 
CALL  CSTR’OUT 
db  *.  Pr«M  Any  Key. ',0 
MOV  [Color].DL 
CALL  HIDE  CUR 
CALL  ERR  SOUND 
CALL  GET'CHAR 
CMP  ALlBh 
JNZ  DAE2 
CAa  ESC  YN 
X  DAE3~ 

DAE2:  CALL  CLEAR  MESSAGE 
CLC 

DAE3:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  DATA  ERR 


;dl8piay  warning 
-.restore  original  color 


;was  It  the  <ESC>  key? 
;V  NO  contirwie 
;V  YES  inform  user 
;carryflag  >  abort 

;clear  carry  flag 
{restore  registers 


Locate  a  WORD  in  a  given  column  of  the  data  fie. 

Input  «  DX  -  WORD  (lookkig  for  word  or  word  *  1) 
CX  «  Column  counter  (1  •  ?  Form) 


Output  «  AX  s  Line  Number  (i 
BP  -  WORD  found 
Carry  flag  «  no  find 
PROC  GET  UNE  NO 
PUSH  ”BX  " 

PUSH  CX 
PUSH  DX 
PUSH  DS 
CALL  GOTO  TOP 
X  FDW4 
; — assign  buffer  offset 

MOV  BX.  Offset  FIBuf 
DEC  CX 
ADD  BX,CX 
XOR  CX.CX 
MOV  BP.DX 
DEC  DH 
FDWI:  INC  DH 

CALL  CLEAR  RLBUF 
CALL  READ  UNE 
JNC  FDW2” 

MOV  AL,0FFH 
MOV  [EOF]>U. 

; - is  this  the  correct  line? 

FDW2:  INC  CX 
CMP  [BX].DX 
JZ  FDW3 
DEC  DH 


??  form) 


{reset  fie  pointer 
{0(tt  on  DOS  error 


{Column  to  0  •  ?  form 
{bx  >  buffer  pointer 
-.zero  line  counter 
{Store  original  value 
{adjust  for  loop 
{dx  «  search  word  -t-  0 

{hex  O’s  to  fie  buffer 
{1  line  from  data  fie 
{not  EndOfFle 
{mark  EndOfFle  true 
{<>  0  »  True 

{Inc  line  counter 
{is  this  a  match 

{dx  -  sear^  word  - 1 
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CMP  [BX].DX 
JZ  F0W3 
; — is  ttiis  the  last  line  ? 
XOR  AUAL 
CMP  AL.(EOF] 
JZ  FDW1 

JMP  F0W4 

; - OKI  Word  is  found 

FDW3:  MOV  BP.OX 
MOV  AX.CX 
CLC 

FDW4:  POP  DS 
POP  DX 
POP  CX 
POP  BX 
RET 

ENDP  GET  UNE  NO 


;is  this  s  match 


;2ero  AX  register 
;isEndOfFleTRUE? 

;Falae  >  get  naad  Une 
;cf  -  word  not  found 
:msrk  not  found 

:retum  WORD  in  BP 
:Llne  number  to  AX 
idear  carry  flag 

:re8tore  registers 


Input  -  none 

Output  -  carry  flag  «  abort  printing 


PROC  ESC  YN 
PUSH  “ax 
PUSH  BX 
PUSH  CX 
PUSH  DX 

CALL  CLEAR  MESSAGE 
MOV  CL.(Cdtor] 

MOV  AL,[W4ming] 

MOV  [Color].AL 
MOV  AX.0200h 
CALL  GOTOYX 
CALL  CSTR_OUT 
db  *  Do  you  want  to  AB 

db  *  Y/N  ',0 

MOV  [Color], CL 


;8tore  originai  Color 
;waming  color 
;set  color 
;row  3/Col  12 
'.set  cursor 
:display  warning 
the  ranking  process  ?  ’ 

;re8tore  original  color 


ESY1:  CALL  HIDE  CUR 
CALL  GET  C^ 

AND  ALOOPh 
CMP  AU’N' 

JZ  ESY4 
ESY2:  CMP  AUT 
JNZ  ESY3 
STC 

JMP  SHORT  ESY5 
ESY3;  CALL  ERR  SOUND 
JMP  SHORf  ESY1 
ESY4:  CALL  CLEAR  MESSAGE 
CLC 

ESY5:  POP  DX 
POP  CX 


;tumonbR6 

;isitNo? 

;f  yssttdt 
;is  It  Yes? 

;l  not  continue 
;aet  carry  flag  -  abort 
;extt 


;empty  message  Ifoe 
;ciearcf «  continue 
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POP  BX 
POP  AX 
RET 

ENDP  ESC  YN 


: - Intlructiont  tor  iwk  commartd. 


Input  ■ 

None 

Output 

«  None 

PROC  RANK  INSTRU 

PUSH 

AX 

:save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

AX.1S00h 

:raw  21, column  0 

CALL 

MENU  BOX 

;drBW  menu  bOK 

MOV 

CL.(C6ior] 

:get  assigned  color 

MOV 

AL.[Menu] 

;get  menu  color 

MOV 

[Cotor]>kL 

;8et  menu  color 

MOV 

AX,160Ah 

;row  22.coiumn  12 

CALL 

QOTOYX 

CALL 

CSTR  OUT 

db 

'Press  the  <Esc>  key  to  pause  or  cancel  the  ‘ 

db 

'ranking  of  scores.', 0 

CALL 

HIDE  CUR 

MOV 

[Color], a 

:restore  assigned  color 

POP 

OX 

;restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  RANKJNSTRU 

;  Append  the  [PerCnt]  string  to  the  data  flto. 

Input  ■ 

None 

Output 

-  [PerCnt]  variabies  to  end  of  data  flto. 

PROC  APPEND  RLE 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

MOV 

AX.DS 

;Make  ES  «  DS 

MOV 

ES,AX 

MOV 

BX.Otfset  PerCnt 

: — place  < 

retum>  and  <line  toed>  beginning  of  data  string 

MOV 

AX.OAODh 

;line  feed  &  carry  ret 

MOV 

[BX],AX 

;place  in  data  stri^ 

INC 

BX 
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INC  BX 

; — plact  and  10  of  '0Q0‘  in  data  string 


MOV 

AX.W 

MOV 

[BX]>X 

INC 

BX 

INC 

BX 

MOV 

IBXl^L 

; - place  two(<retum>  <Nne  feed >)  at  end  of  string 

MOV 

BX.Offaet  PerCnt  +  165 

MOV 

AX.OAOOh 

;llrte  feed  &  carry  rat 

MOV 

[BXI^ 

:plaee  In  data  stri^ 

INC 

BX 

;ptr  to  PerCnt  103 

INC 

BX 

MOV 

[BX]^ 

;place  in  data  string 

: — place  fie  pokter  to  the  End  of  Fie. 

MOV 

BX.{FleHd] 

;gat  fie  handle 

XOR 

CX,CX 

;aet  offset  -  0 

MOV 

DX.CX 

;aat  offset  -  0 

MOV 

AX.4202h 

last  fie  pointer  no. 

INT 

21h 

:set  to  End  of  Fie 

X 

APP1 

;exit  I  error. 

; - inform  user  if  disk  is  fuH 

MOV 

AX.16B 

;number  of  bytes  needed 

CAa 

IS  FULL 

;is  room  mrelable? 

X 

APP1 

:l  NO  skip  \write 

; — Append  169  bytes  to  the  fie. 

MOV 

AX.4000h 

;write  to  flte:  func.  no. 

MOV 

CX.ie9 

;no.  of  bytes  to  write 

MOV 

DXOffset  PerCnt 

;ptr  to  data  to  write 

INT 

21h 

nwrte  to  the  He 

: — No  error  checkkig  because  nothing  is  lost  V  the  a«rite  tales. 

APP1:  CLC 

;ciear  carry  flag 

POP 

ES 

POP 

DX 

;restore  reflfoters 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  APPEND_RLE 
.CODE 

; - Print  a  report  for  each  ID  nurnbar  in  the  data  fie. 

Input  >  None 
Output  -  None 

BX  -  DOS  timer  ticks 25  seconds 
PROC  PRINT  ALL  REPORTS 

PUSH  /0(  ~  ;save  registefs 

PUSH  BX 
PUSH  CX 
PUSH  DX 

CALL  GOTO_TOP  ;fle  pC  to  top  of  fie 
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JC  PM5 

CALL  PROGRESS  MESSAGE 
CALL  PRINT  INSTRU 
CALL  INITIAOZE  HP 
JC  PRA4  ■ 

;—gM  DOS  tkMT  ticks 
PRAI:  MOV  AH.0 
INT  lAh 
MOV  BX.OX 
MOV  AX.455 
ADO  BX^ 

JC  PRAI 

; — locals  nsKt  ID  number 

CALL  RNO_DATA_UNE 
JC  PRA3 "" 

CALL  PROGRESS  MESSAGE 
CALL  PRINT  TITLE 
JC  PRA4 

; - print  each  dimension 

CALL  PRINT_0IM1 
JC  PRA4  ” 

CALL  PRINT  DIM2 
JC  PRA4 
CALL  PRINT  DIMS 
If'  PRAA 

CAa  PRINT  DIM4 
JC  PRA4 
CALL  EJECT 
X  PRA4 

; - is  25  seconds  up  yet? 

PRA2:  MOV  AH.O 
INT  lAh 
CMP  DX.BX 
X  PRA2 

; — loop  urM  al  graphs  are  printed 
JMP  SHORT  PRAI 
; — normal  exit  point 
PRA3:  CALL  RESTORE  HP 

ac 

JMP  SHORT  PRA5 
; — abort  exit  point 
PRA4:  CALL  RESTORE_HP 
STC  ^ 

PRAS:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PRINT  ALL  REPORTS 


;aadt  on  DOS  error 

liriorm  user  of  progress 
-.display  bottom  box 
;hp  to  portrait  mode 
;eKit  if  printer  error 

function  number 
;gst  DOS  dock  ticks 
;save  ticks  in  CX 
:18^  ticks  per  second 
;add  25  seconds 
:loop  Rover  low 

:locate  Next  ID  number 
:Normai  Exit  ErxlOIFIe 

;lnform  user  of  progress 
;prM  report  header 
;sKlt  i  printer  error 

‘.print  dimension  1 
:exit  tf  printer  error 
;print  dimension  2 
-.exit  V  printer  error 
;prto!t  dimension  3 
:exit  if  printer  error 
;print  dknension  4 
:exlt  If  prMer  error 
:eiect  chart  from  HP 
;exlt  if  printer  error 

;functk)n  number 
;get  DOS  dock  ticks 
:has  time  run  out  ? 

;V  not  loop  und  done 

;go  print  next  graph 

;reset  to  normal  defaults 
;normai  exK 


;abort  or  error  exit 
:re8tore  registers 


; - Print  a  report  for  a  user  supplied  ID  number. 

Ittout  -  None 
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:aav«  registan 


OUput  -  Nona 

PROC  PRINT  ONE  REPORT 
PUSH  A3H 
PUSH  BX 
PUSH  CX 
PUSH  DX 
gat  ID  numbar 
CALL  GET  ID 
X  PRI5“ 

locala  ID  numbar  in  tha  data  lla 
CALL  LOCATE 
X  PRI5 

; - printing  of  a  raport  bagkia  hara 

CALL  PROGRESS  MESSAGE 
CALL  PRINT  INSTRU 

CAa  initiaDze  hp 

PRU  * 

CALL  PRINT  TITLE 
X  PRI4 

; — print  aach  dimansion 
CALL  PRINT  DIMI 
X  PRM 
CALL  PRINT  OIM2 
X  PRM 
CALL  PRINT  DIMS 
X  PRH 
CALL  PRINT  0IM4 
X  PRU 
CALL  EJECT 
X  PRi4 

PRI3:  CAa  RESTORE  HP 
CLC 

JMP  SHORT  PRI5 
PRI4:  CAa  RESTORE_HP 
STC  ” 

PRI5:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PRINT  ONE  REPORT 


;sKlt  on  <Eac>  kay 

:locala  ID  Numbar 
;axlt  f  not  found 

;infbnn  usar  of  prograss 
:dispiay  bottom  bcK 
,‘hp  to  portrait  mods 
isadt  if  prlritor  arror 
:pM  raport  haader 
:exit  If  printar  arror 

:prlnl  dimsnsion  1 
;axlt  if  prinMr  arror 

•pnni  oviiOfwOn  £. 

;a)dt  tf  printar  arror 
:p^  dimansion  3 
;s9dt  tf  printar  arror 
;pM  dtfnansion  4 
;skII  tf  primer  arror 
;a)oct  chert  from  HP 
;a)dt  tf  primer  arror 

;raset  to  normal  defaults 
;normaiSKit 


;abort  or  arror  extf 
;rastora  ragistars 


; - Prim  poMtiva  dimansion  nurrdjsr  1  on  an  HP  laser. 

Input «  Nona 

Ou^nX  «  Cary  flag  «  abort  printing 
PROC  PRINT_DIM1 

PUSH  ^  ;sava  registers 

PUSH  BX 
PUSH  CX 
PUSH  DX 

; - prim  dimension  name 
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MOV 

AX.0B0eh 

:row/coi  hex 

CALL 

HPGOTOYX 

;satposlton 

JNC 

PIO 

;tf  on  error  continue 

JMP 

P13 

;e»dt  on  prirtef  error 

— 1 

is  this  a  POS  or  NEG  dimensions? 

PIO: 

Clytf> 

BYTE  PTR  [Report].0 

;gat  type  of  report 

JZ 

P11 

;iump  V  poeltNe 

MOV 

AX.Oflsot  Negl 

;ptr  to  daralffloit  str 

JMP 

SHORT  P12 

;iump  to  print  the  str 

P11: 

MOV 

AXOffset  Poel 

;ptr  to  positive  str 

P12: 

CALL 

PRINT  STRING 

:print  the  string 

X 

P13 

;exlt  on  printer  error 

; — draw  chart  omUne 

MOV 

AX.0e22h 

:raMr/col  hex 

CALL 

HPGOTOYX 

;set  poelton 

X 

P13 

;exit  on  error 

MOV 

AXOffset  Bok 

;ptr  to  draw  box  string 

CALL 

PRINT  STRING 

;draw  the  dim  box 

X 

P13 

;exlt  on  printer  error 

; - chart  parcantla  for  aaWs.  pears,  superiors  and  subordinates 

MOV 

AXOASOh 

;row/col  of  '1*  hex 

MOV 

BXOffset  Parent  +  S 

;ptr  to  seti  data 

CALL 

CHART  RANGE  L 

;draw  shaded  area 

JC 

P13 

;exlt  on  error 

CALL 

CHART  PERCENTILES 

'.draw  the  data 

X 

P13 

;exlt  on  error 

INC 

AH 

’.row  to  peers 

MOV 

BXOffset  Parent  &  45 

to  peers  data 

CALL 

CHART  RANGE  D 

:dtaw  shaded  area 

X 

P13 

;exit  on  error 

CAa 

CHART  PERCENTILES 

;dtaw  the  data 

X 

P13 

;e)dt  on  error 

INC 

AH 

;row  to  superiors 

MOV 

BXOIfset  Parent  •»-  86 

;ptr  to  superiors  data 

CAU 

CHART  RANGE  L 

,'draw  shaded  area 

X 

P13 

;exlt  on  error 

CALL 

CHART  PERCENTILES 

;draw  the  data 

X 

P13 

;exlt  on  error 

INC 

AH 

'.row  to  stfoordinates 

MOV 

BXOffset  Parent  +  125 

;ptr  to  subordinates 

CALL 

CHART  RANGE  D 

;dtaw  shaded  area 

X 

P13 

;aKit  on  error 

CALL 

CHART  PERCENTILES 

;draw  the  data 

X 

P13 

;exlt  on  error 

chart  points  for  self,  peers,  superiors  and  subordfoates 

MOV 

AX0A30h 

'.restore  row/col  of  1 

MOV 

BXOIIset  FIBuf  +  3 

;ptr  to  seif  point 

CALL 

CHART  POINT 

;ax-8tart^  row/coi 

X 

P13 

;exit  on  error 

INC 

AH 

;rowto  peers 

MOV 

BXOIfset  FIBuf  +  15 

;ptr  to  seif  point 

CALL 

CHART  POINT 

;ax-starti^  row/col 
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JC  P13 
INC  AH 

MOV  BX.OffMl  FIBuf  +  27 
CALL  CHART  POINT 
JC  P13 
INC  AH 

MOV  BX.OflMt  FIBuf  30 
CALL  CHART  POINT 
JC  Pi3 

chtck  I  to  SM  V  any  special  m 
NOTE:  to  be  completed  at  a  li 

CLC 

P13:  POP  OX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PRINT  tXMl 


ittdt  on  error 
;rcMr  to  superiors 
:ptf  to  sair  polri 
:ax-stBrti^  row/cd 
;exlt  on  error 
;row  to  subordinates 
;ptr  to  self  poM 
'jK-startl^  row/ool 
;aKitonenor 
need  to  be  prMod. 


:cleer  carry  lag 
ireetore  registers 


; - PrM  poeWve  dimerwion  number  2  on  an  HP  laser. 

Input  «  None 

Output  -  Cary  flag  -  abort  printing 
PROC  PRiNT_OiM2 

PUSH  M  -.save  registers 

PUSH  BX 
PUSH  CX 
PUSH  OX 

; - print  dimension  name 

MOV  AX.13Q6h  ;n¥//cc 

CALL  HPGOTOYX  ;set  f 

JNC  P20  ;i  on  erroi 

JMP  P23  ;e)dt  on  pi 

; - Is  this  a  POS  or  NEC  dimensions? 

P20:  CMP  BYTE  PTR  (Report],0  ;g( 

JZ  P21  ;Jump  V  po( 

MOV  AX.OflMtNeg2  ;ptrto 

JMP  SHORT  P22  ijump 

P21:  MOV  AX.OIfset  Pos2  ;ptrti 

P22:  CALL  PRINT_STRiNQ  ;prl 

JC  P23  ~  :exitonprl 

;-—draMv  chart  ouiflne 

MOV  AX,1Q22h  ;row/co 

CALL  HPGOTOYX  ;aet  f 

JC  P23  ;eKit  on  err 

MOV  AX,Oflaet  Box  ;ptr  to  < 

CALL  PRINT^STRING  :drav 

JC  P23  "  ’.esdt  on  ort 


;ro«v/col  hex 
-.setposkon 
;i  on  error  contirNje 
;exit  on  printer  error 

;get  type  of  report 
;Jump  V  positive 

;pp  to  deralmert  str 
;^snp  to  print  the  str 
;ptr  to  positive  str 
;prini  the  string 
:exit  on  primer  error 


;row/col  hex 
;ampoeiton 
;flxit  on  error 

;plr  to  draw  box  string 
:drsMr  the  dim  box 
;flxk  on  printer  error 


; - chart  percentle  for  selh.  peers,  superiors  and  subordinates 

MOV  AX.1230h  ;roix/coi  of  'V  hex 

MOV  BX,Offset  PerCm  -t-  15  ;ptr  to  seif  data 

CALL  CHART  RANGE  L  ;dfaw  shaded  area 
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JC 

P23 

;sKlt  on  error 

CAU. 

CHAftT  PERCENTILES 

.-dnnv  dw  data 

JC 

P23 

;aodt  on  error 

INC 

AH 

irowv  to  peers 

MOV 

BX.Offaat  PerCnt  >  55 

:ptr  to  peers  data 

CAa 

CHART  RANGE  D 

:(kaMr  shaded  area 

JC 

P23  " 

;aidt  on  error 

CALL 

CHART  PERCENTILES 

;(kaer  the  data 

JC 

P23 

;atdt  on  error 

INC 

AH 

'.roMr  to  superiors 

MOV 

BX.OIfset  PerCnt  *  96 

4)tr  to  auperfors  data 

CALL 

CHART  RANGE  L 

:draMr  shaded  area 

JC 

P23  " 

;aKlt  on  error 

CALL 

CHART  PERCENTILES 

;dtaMr  the  data 

JC 

P23 

;aKlt  on  error 

INC 

AH 

;roMr  to  subordinales 

MOV 

BX.OfNet  PerCnt  *  135 

;ptr  to  subordinates 

CAa 

CHART  RANGE  D 

:draw  shaded  area 

JC 

P23  “ 

;aadt  on  error 

CAa 

CHART  PERCENTILES 

:draNv  the  data 

JC 

P23 

;aKit  on  error 

chart  points  for  self,  peers,  superiors  and  subordinates 

MOV 

AX.1230h 

'.restore  row/col  of  ’1‘ 

MOV 

BX.Offset  FIBuf  +  6 

:plr  to  seif  point 

CAa 

CHART  POINT 

;ax«>slarti^  row/coi 

JC 

P23 

;e)dt  on  error 

INC 

AH 

;raw  to  peers 

MOV 

BX.Orfset  RBuf  4  16 

;ptr  to  self  point 

CAa 

CHART  POINT 

;ax«starti^  row/coi 

X 

P23 

;exit  on  error 

INC 

AH 

;rowr  to  superiors 

MOV 

BX.Offaet  FIBuf  -i-  30 

;ptr  to  seif  point 

CAa 

CHART  POINT 

'.ax-staiti^  row/coi 

X 

P23 

;exlt  on  error 

INC 

AH 

:row  to  subordinates 

MOV 

BX.OIfset  FIBuf  +  42 

;ptr  to  seif  point 

CAa 

CHART  POINT 

‘4K«atarti^  row/col 

X 

P23 

;exit  on  error 

: — check  V  to  see  V  any  special  messages  need  to  be  printed. 
NOTE:  to  be  completed  at  a  later  date. 


CLC  ;cleor  camy  Hag 

P23:  POP  DX  ;reslore  registers 


POP 

CX 

POP 

BX 

POP 

AX 

RET 

*  PRINT  DIM2 

- Print  positive  dimension  number  3  on  an  HP  laser. 

Input  «  None 

Output  -  Cary  flag  «  abort  printing 
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.sav*  ragittar* 


PROC  PRINT  DIMS 
PUSH  M 
PUSH  BX 
PUSH  CX 
PUSH  OX 

; - prM  fSmansion  nama 

MOV  AX.lB0eh 
CALL  HPQOTOYX 
JNC  P30 
JMP  P33 

; — lathieaPOSorNEQdImanaions? 
P30:  CMP  BYTE  PTR  [Rapoft|.0 
JZ  P31 

MOV  AX.OflMCNag3 
JMP  SHORT  P32 
P31:  MOV  AX.OIIsat  Poa3 
P32:  CALL  PRINT  STRING 
JC  P33  ’ 


:reia/coi  IMK 
:aatpoalon 
;V  on  anor  continua 
;aidl  on  prMar  anor 

;gai  typa  of  rapoit 
;)ump  I  poaittM 

:pO' to  darabnant  Mr 
‘.Jump  to  print  tha  Mr 
;ptr  to  poathM  Mr 
;prlnl  tha  string 
-.axt  on  printar  arror 


; — draw  chart  outUna 
MOV  AX.1822h 
CALL  HPGOTOYX 

i!K)V  ^OffsMBox 
CALL  PRINT  STRING 
X  P33  “ 


:row/CQi  hSK 
:aMpoalton 
;aMt  on  arror 

;ptr  to  draw  box  string 
;dr8W  tha  dim  box 
;sKlt  on  prMar  arror 


• - chart  parcantia  for  seifs,  peers,  superiors  and  subotdinalas 


MOV  AX.lA30h 
MOV  BXOffsM  Parent  *  2S 
CALL  CHART_RANGE_L 
JC  P33  " 

CALL  CHART  PERCENTILES 
X  P33  ” 


;row/col  of  '1*  hex 
;ptrtosairdata 
;drBw  shaded  anM 
;axit  on  arror 

;drBw  tha  data 
;a)dl  on  error 


INC  AH 

MOV  BX.OffsM  Parent  +  66 
CALL  CHART^RANGE_D 
JC  P33  "" 

CALL  CHART  PERCENTILES 
X  P33  " 

INC  AH 

MOV  BX.OIfaM  Parent  -t-  106 
CALL  CHAHT_RANGE_L 
X  P33 

CALL  CHART  PERCENTILES 
X  P33  " 

INC  AH 

MOV  BX.OffMt  Parent  *  145 
CALL  CHART_RANGE_D 
JC  P33  * 

CALL  CHART  PERCENTILES 


;row  to  pears 

;ptr  to  peers  data 
;drBW  shaded  area 
;exlt  on  error 

;draw  tha  data 
;axlt  on  arror 
;row  to  st^reriors 

;ptr  to  supariors  data 
;draw  shaded  area 
;eKlt  on  arror 

;(Mw  tha  data 
;exlt  on  arror 
;row  to  subordinatas 

;ptr  to  subortHnataa 
;(Mw  shaded  area 
;oxlt  on  arror 

;(Mw  tha  data 


X  P33  :«(ll  ^rror 

; - chart  points  for  self,  peers,  superiors  and  subordfoates 

MOV  AX.lA30h  :restore  row/col  of  '1* 


MOV 

BX.O(l8et  FIBul  +  9 

;ptrto  seif  point 

CALL 

CHART  POINT 

;ax«staftlng  row/col 

JC 

P33 

;e8dt  on  error 

INC 

AH 

;row  to  peers 

MOV 

BX.OIfset  FIBuf  •»-  21 

;ptrto  self  poM 

CALL 

CHART  POINT 

;ax-starting  row/coi 

JC 

P33 

;e)dt  on  error 

iNC 

AH 

;row  to  superiors 

MOV 

BX.OflMt  FIBuf  -t-  33 

:ptr  to  seif  poM 

CALL 

CHART  POINT 

;ax-starting  row/col 

JC 

P33 

itKlt  on  error 

iNC 

AH 

:row  to  wbortflnatee 

MOV 

BX.Oflset  FIBuf  >  45 

:ptrto  self  point 

CALL 

CHART  POINT 

;ax>starti^  row/col 

JC 

P33 

;eKit  on  error 

I— — "Ch^ck  N 

! 

1 

1 

s 

need  to  be  printed. 

t 

NOTE:  to  be  completed  at  a  later  date. 

• 

ac 

idear  carry  flag 

P33: 

POP 

DX 

;restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  PRiNT_OIM3 

1 

; - Print  poaUKra  dimension  number  4  on  an  HP  iaser. 

1 

input  • 

None 

• 

Output 

-  Cary  flag  «  abort  printing 

PROC  PRiNT  DiM4 

PUSH 

;save  reisers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

; — print  dimension  name 

MOV 

AX.230eh 

;row/col  hex 

CALL 

HPQOTOYX 

:setpo6iton 

JNC 

P40 

;fl  on  error  continue 

JMP 

P43 

;exlt  on  printer  error 

; — is  this  a  POS  or  NEQ  dimensions? 

P40: 

CMP 

BYTE  PTR  [Report].0 

;get  type  of  report 

JZ 

P41 

;|ump  V  positi^ 

MOV 

AX.Offset  Neg4 

;ptr  to  deralmerfl  str 

JMP 

SHORT  P42 

;jun^  to  print  the  str 

P41: 

MOV 

AX.OIfaet  Pos4 

;ptr  to  positive  str 

P42: 

CALL 

PRINT  STRING 

;print  the  string 

JC 

P43 

iSKfl  on  printer  error 

-draw  chart  outHne 

MOV 

AX,2022h 

;row/coi  hex 

CALL 

HPQOTOYX 

;8et  positon 

X 

P43 

;eixlt  on  error 

MOV 

AX,0lf8etB0K 

;ptr  to  draw  box  string 
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cAa 

PRINT  STRING 

:draw  the  dim  bOK 

JC 

P43 

;eidl  on  printer  entx 

chirt  parotnlto  for  salft.  poors,  superiors  ond  subordintfes 

MOV 

AX,2230h 

;rawr/CQi  of  *1'  hex 

MOV 

BX.Offaet  PeiCnt  ^  35 

:ptr  to  seif  data 

CALL 

CHART  RANGE  L 

:draw  shaded  area 

JC 

P43  " 

;axit  on  error 

CALL 

CHART  PERCENTILES 

:(kaMr  the  data 

JC 

P43 

:eadt  on  error 

INC 

AH 

;roNr  to  peers 

MOV 

BX,Offset  PerCnt  *  75 

;pb  to  peers  data 

CAa 

CHART  RANGE  0 

:dfawr  shaded  area 

JC 

P43  “ 

:eKk  on  error 

CAa 

CHART  PERCENTILES 

;(^aMv  the  data 

X 

P43 

;aKlt  on  error 

INC 

AH 

:roNv  to  superiors 

MOV 

BX.Offset  PerCnt  *  115 

:ptr  to  superiors  data 

CAa 

CHART  RANGE  L 

:draMr  shaded  area 

X 

P43  " 

;exit  on  error 

CAa 

CHART  PERCENTILES 

'.draw  the  data 

X 

P43 

;exft  on  error 

INC 

AH 

;rouv  to  subordinates 

MOV 

BX,Offset  PerCnt  >  155 

:ptr  to  subordinates 

CAa 

CHART  RANGE  0 

:drawr  shaded  area 

X 

P43  “ 

;exlt  on  error 

CAa 

CHART  PERCENTILES 

;draw  the  data 

X 

P43 

;exlt  on  error 

; - chert  poirtts  for  self,  peers,  superiors  and  subordinates 

MOV 

AX,2230h 

;rastore  rour/col  of ’1’ 

MOV 

BX.OIfset  FIBuf  -t-  12 

:ptr  to  seif  point 

CAa 

CHART  POINT 

;ax-8tarti^  row/coi 

X 

P43 

;exlt  on  error 

INC 

AH 

;row  to  peers 

MOV 

BX.ORset  FIBuf  24 

,'plr  to  self  point 

CAa 

CHART  POINT 

',ax«8tatti^  row/cd 

X 

P43 

'.exit  on  error 

INC 

AH 

;rQw  to  superiors 

MOV 

BX.Offset  RBuf  +  36 

;ptr  to  seif  point 

CAa 

CHART  POINT 

;ax*8tarti^  row/cd 

X 

P43 

;eadt  on  error 

INC 

AH 

;row  to  subordinates 

MOV 

BX,Offset  RBuf  48 

:ptr  to  seif  point 

CAa 

CHART  POINT 

;ax«starti^  row/cd 

X 

P43 

;exit  on  error 

; - check  V  to  see  If  wty  spedai  moasages 

need  to  be  printed. 

NOTE:  to  be  completed  at  a  later  date. 

CLC 

;cleer  carry  flag 

P43:  POP 

DX 

;restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

G“33 


RET 

ENOP  PRINT_DIM4 
CODE 


: - 8«nd  ASCII  tiring  to  tht  Unt  Prinlar  at  port  {LPT] 

Input  -  AX  pointtr  to  beginnina  of  string  in  data  taction 
CH  -  numbtr  of  triat  I  txity  CL  -  atoia  cbar 


Output  -  Carry  flag  -  abort  priming 


PROC  PRINT  STRING 

PUSH  M. 

;sava  ragiatars 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  BKM 

;ptr  to  ASCII  string 

XOR  CH.CH 

.zero  loop  counter 

; — Chack  kayboard  bullar  to  aae  if  tha  <Eac>  kay  baan  praaaad? 

PS1:  MOV  AX.0e00h 

;DOS  function  #  6 

MOV  DUOFFh 

;raad  char  from  key- 

INT  21h 

iboard  buffer. 

JZ  PS2 

;NO  kay  pressed  continua 

CMP  AL.lBh 

;was  It  tha  <ESC>  key? 

JNZ  PS2 

:ir  NO  contbiua 

CALL  PRT  ERRORS 

;l  YES  Inform  user 

JC  PS8  " 

:carryflag  «  abort 

get  charactar  to  be  tarn  to  LPT  port 

PS2:  MOV  AL,[BX1 

'.load  Char  to  sand 

CMP  AL.0 

;is  this  and  of  string? 

JZ  PS8 

;9r  yes  normal  SBdL 

; — sand  character  to  assignad  LPT  port 

MOV  AH.0 

;BIOS  function  number 

MOV  DX.ILPT1 

;gatLPT  port  assign. 

INT  17h 

;get  port  status 

CMP  BYTE  PTR  [DaBug],0 

;is  debug  ON? 

JZ  PSS 

;lf  NO  goto  nsKt  test 

CALL  SHOW  AH 

;bitmap  of  AH  to  screen 

; - test  bkSofS.  Ifblt5>0  then  no  powrer. 

PSS;  TEST  AH.10h 

;is  printer  poarsrad  up? 

JNZ  PSS 

;OKI<>0  goto  next  teat 

CALL  PRT  ERROR1 

;dl8piay  error  massage 

JC  PSS  " 

;carryflag  •  abort 

CALL  PROGRESS  MESSAGE 

;lnform  user  of  progress 

JMP  SHORT  PSr 

;sand  same  char  again 

; — tastbit4&6ora  bit  4  -  I/O  error  6 

-  printer  out  of  paper. 

PSS:  XOR  CH,>i 

;ioop  counter  to  zero 

TEST  AH^ 

;l/0  or  out  of  paper? 

JZ  PSS 

:V  NO  sand  char 

CALL  PRT  ERROR2 

;i  YES  tsN  user. 

JC  PSS  “ 

;cf  -  abort 

CALL  PROGRESS  MESSAGE 

;inform  user  of  projpess 

JMP  SHORT  PSl" 

;send  same  char  again 
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tbiiiora  HMi 

TEST  AH.01 


JZ  PS7 

CALL  PRT_ERROR4 
JC  P88  "" 

CAa  PROGRESS  MESSAGE 
JMP  SHORT  PSr 
INC  BX 
JMP  SHORT  PS1 


1  ttwn  prinlar  time-out 

;ie  printer  tImeKMl? 

;V  NO  eend  next  char 

;lnlorm  ueer  or  timeout 
;cf  «  abort  eiee 

ESSAGE  :lnlorm  ueer  of  progress 

:esnd  same  char  sgein 
:poM  to  next  char 
;loop  urtil  finiehad 


POP 

DX 

;rosU)re  regietsrs 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

Input  « 

none 

Output 

«  carry  (lag  -  abort  printing 

5  PRT  ERROR1 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CAa 

CLEAR  MESSAGE 

;ampty  massage  1 

MOV 

CL.[Cdibr] 

;atore  ortginai  Color 

MOV 

AL,  [Warning] 

;waming  color 

MOV 

[Color], AL 

:eet  color 

MOV 

AX.020Gh 

;row  3/Coi  12 

CAa 

GOTOYX 

;aat  cursor 

CAa 

CSTR  OUT 

rdispiay  warning 

db 

'  PrMer  Is  off  line.  Do  you  want  to  try  again  ?  ’ 

db 

*  Y/N  ’.0 

MOV 

[Color], CL 

;restore  orlj^nai  color 

I:  CAa  HIDE  CUR 

CAa 

ERR  SOUND 

CAa 

GET" CHAR 

AND 

AL.5Fh 

.turn  off  bits  6  &  8 

CMP 

AL,’N* 

;isltNo? 

JZ 

PRE4 

;tf  yes  exit 

1:  CMP  AUT 

;i8  it  Yes? 

JNZ 

PRE3 

;l  not  continue 

CLC 

;clear  carry  (lag 

JMP 

SHORT  PRES 

:e)dt 

PRE3:  CAa  ERR  SOUND 
JMP  SHORfPREI 
PRE4:  CAa  CLEAR_MESSAGE 
STC  "" 

PRE5:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PRT  ERROR1 


;empty  message 

;aet  carry 
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input  » 

none 

Output 

>  carry  flag  «  abort  printing 

PROC  PRT  ERROR2 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEAR  MESSAGE 

MOV 

CL.ICoibr] 

:atore  ortginet  Color 

MOV 

AL,  [Warning] 

neamlng  color 

MOV 

[Coior].AL 

:aat  color 

MOV 

AX.0207h 

:row3/Coi  12 

CALL 

GOTOYX 

:aet  cursor 

CALL 

CSTR  OUT 

;dispiay  warning 

db 

Printer  Error.  Check  the  paper.  Do  you  wan  to  continue 

db  ■ 

Y/N  -.0 

MOV 

[Colorl.CL 

:restore  original  color 

PRR1:  CAU 

HIDE  CUR 

CALL 

ERR  s6uND 

CALL 

get“ char 

AND 

AUSFh 

:tum  off  bit  6  &  8 

CMP 

AU'N' 

;is  It  No? 

JZ  PRR4 

ilfyesndt 

PRR2:  CMP 

AL.T 

liskYes? 

JNZ 

PRR3 

;if  not  continue 

ac 

;clear  carry  flag 

JMP 

SHORT  PRRS 

:exit 

PRR3:  CALL  ERR  SOUND 
JMP  SHORT  PRR1 


PRR4:  CALL  CLEAR_MESSAQE  :enipty  message  line 

STC  ;set  carry  flag 

PRR5:  POP  DX 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PRT  ERROR2 


Input  «  none 

Output  -  carry  flag  -  abort  printing 
PROC  PRT  ERRORS 
PUSH  “AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 

CALL  CLEAR  MESSAGE 
MOV  CU[Coibr] 

MOV  AL,[Waming] 

MOV  IColor].AL 
MOV  AX.020Bh 


;store  original  Color 
.-warning  color 
;set  color 
-.row  3/Coi  12 
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PEE1 


PEE3 

PEE4 


PEES 


CALL 

GOTOYX 

;set  cursor 

CALL 

CSTR  OlfT 

;display  wiamlng 

db  ‘ 

Do  you  VMUt  to  ABORT  the  print  irwtructions  ? ' 

db 

Y/N'.0 

MOV 

{CokxJ.Q. 

;restaf»  original  color 

:  CALL 

HIDE  CUR 

CALL 

GET  C^ 

AND 

AL.5^ 

,ium  off  bit  6  &  8 

CMP 

AL’N* 

;lsltNo? 

JZ  PEE4 

;if  yes  exit 

:  CMP 

AL.*Y* 

:1s  It  Yes? 

JNZ 

PEE3 

;lf  not  continue 

STC 

:set  carry  flag  -  abort 

JMP 

SHORT  PFE5 

:axlt 

:  CALL 

ERR  SOUND 

JMP 

SHORfPEEl 

:  CAa 

CLEAR_MESSAQE 

;ampty  message  line 

CLC 

ideer  cf  >  continue 

:  POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

>  PRT_ERROR3 

Input  > 

none 

Output 

«  carry  flag  >  abort  printing 

:  PRT  ERROR4 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEAR  MESSAGE 

MOV 

CUfCdTor] 

;store  original  Color 

MOV 

AL,[Wami^] 

:wBming  color 

MOV 

[Color]>U. 

;set  color 

MOV 

AX.0207h 

:row  3/Col  12 

CALL 

GOTOYX 

:sel  cursor 

CALL 

CSTR  OUT 

;display  awning 

db  ' 

Printer  TImeOuL  Press  any  key  to  try  again  or  <Eac>  ' 

db  *to  abort  *,0 

MOV 

[Color], a 

:restore  original  color 

CAa 

HIDE  CUR 

CAa 

ERR  ^UND 

CAa 

get" char 

CMP 

AL.lBh 

;is  k  <Esc> 

JNZ 

RPP1 

;tf  yesextt 

STC 

;set  carry  flag  -  abort 

JMP 

SHORT  RPP2 

;exit 

:  CAa 

CLEAR_MESSAGE 

;empty  message  line 

ac 

idear  cf  >  continue 
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RPf»2:  POP  DX 
POP  CX 
POP  SX 
POP  AX 
RET 

ENOP  PRT  ERR0R4 
ENOP  PRli^  STRING 


;  Locatt  the  n«(t  ID  (tata  Hm  in  the  fie. 
Input  -  None 

Ou4)ut  -  Carry  Flag  V  EndOIFIe 
Carry  flag  I  DOS  error 
PROC  RNO  DATA  UNE 
PUSH  ”AX 


PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX.DS 

MOV 

ESM 

;a8sign  ES  «  DS 

; - set  default  ID  string  to  ASCII  zeros 

MOV 

Di.Ollaet  ID 

;ptr  to  string  to  fM 

MOV 

AX.3030h 

:ASai  zeros 

MOV 

[DI1.AX 

;place  let  two  bytes 

XOR 

AH,AH 

;zero  -  end  of  string 

INC 

Di 

:advanoe  string  ptr 

INC 

Di 

MOV 

(011^ 

]ASO\  0  «id  hex  0 

; — locale  ID  number  In  the  data  fie 

RD1:  CALL 

CLEAR  RLBUF 

;h6K  O’s  to  flto  buffer 

CALL 

READ  UNE 

;1  line  from  data  fie 

JNC 

RD2  " 

;not  EndOIFIe 

MOV 

AL.OFFH 

;marfc  EndOfFle  tnje 

MOV 

[EOF]^ 

;<>  0  »  True 

; - is  this  a 

*000'  data  line? 

RD2:  MOV 

CX.3 

;loop  counter 

MOV 

DI.OIfset  ID 

;ptr  to  ID  number 

MOV 

SI.Oflaet  FIBuf 

;ptr  to  data  fie  line 

CLD 

;aulo  Inc  IX  and  SI 

REPZ 

CMPSB 

'.are  die  bytes  -  ? 

JZ 

RD5 

;sklp  fl  ID  -  '000' 

; - is  this  an  ID  number  Mne? 

MOV 

Si.Olf8et  FIBuf 

;ptr  to  data  fie  line 

MOV 

CX.3 

Joop  counter 

RD4:  MOV 

Aursi] 

;gM  first  byte 

CMP 

AUti* 

;is  It  <  ASai  0 

X 

RD5 

',V  Yes  read  next  line 

CMP 

AL.':’ 

;ieltadigit? 

JNC 

RDS 

:V  No  read  next  line 

INC 

Sl 

;poira  to  next  byte 

LOOP 

RD4 

icheck  next  byte 

copy  ID  to  [ID]  string  ;0-OK!  Found  Data  Line 
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MOV 

CX.3 

;number  of  bytes  to  moue 

MOV 

DI.OffsetlD 

;ptr  to  ID  number 

MOV 

Sl.Offset  R»uf 

;ptr  to  data  He  lira 

CLO 

;auto  Inc  Di  and  SI 

REP 

MOVSB 

;copy  three  bytes  to  ID 

JMP 

SHORT  RD6 

;E)dt  found 

; — is  this  ths  last  lira  ? 

nOS:  XOR 

AUAL 

:2ero  AX  register 

CMP 

Al,(EOFl 

:isEndOIRMTRUE? 

JZ 

R01 

:False  -  get  nsat  lira 

STC 

:carrylag  «  Nora 

JMP 

SHORT  RD7 

;retain  EndOIRM 

n06:  CLC 

.‘dear  carry  flag 

RD7:  POP 

DX 

;  restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  RND_DATA_UNE 

: - Print  a  tMe  on  the  HP  laser. 

Input  - 

Nora 

Output 

-  Nora 

PROC  PRINT  TITLE 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX.0321h 

;row/cof  hex 

CALL 

HPGOTOYX 

JC 

PT5 

.exit  on  primer  error 

MOV 

AX.Offset  Heder 

;ptrTWe 

CALL 

PRINT  STRING 

{String  holds  Bold  ON 

X 

PT5 

;exlt  on  primer  error 

MOV 

AX.0508h 

;row/col  hex 

CAa 

HPGOTOYX 

X 

PT5 

;exlt  on  prMer  error 

MOV 

AX.OIfset  IDStr 

CALL 

PRINT  STRING 

X 

PT5 

;e)dt  on  printer  error 

CMP 

BYTE  PTR  [Report], 0 

;get  type  of  report 

JZ 

PT1 

;)ump  tf  positive 

MOV 

AX.OIfset  NegT 

;ptr  to  deralrnem  str 

JMP 

SHORT  PT2 

{jump  to  prim  the  str 

PT1:  MOV 

AX,Offset  Post 

{ptr  to  positive  str 

PT2:  CALL 

PRINT  STRING 

{prim  the  string 

X 

PT5 

{exit  on  primer  error 

MOV 

AX.0553h 

{row/col  hex 

CALL 

HPGOTOYX 

X 

PT5 

{exR  on  primer  error 

MOV 

AX.Offset  DTStr 

CALL 

PRINT  STRING 

G-39 


X  PT5 
MOV  AX.07Qeh 
CALL  HPGOTOYX 
X  PT5 

MOV  A)(.OIIsM  DiStr 
CALL  PRINT  STRING 
X  PT5  " 

MOV  AX.2822h 
CALL  HPGOTOYX 
JC  PT5 

MOV  AX.OffsM  Inform 
CALL  PRINT  STRING 
X  PT6  " 

PT5:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PRINT_TrrLE 

Is  the  data  He,  report  type  and  LPT  port  ready? 

Input  -  None 

Output  -  Carry  flag  If  Not  Ready. 

PROC  IS^PRINT 

PUSH  AX  ;8ave  registers 

PUSH  BX 
PUSH  CX 
PUSH  OX 
: — is  fie  selected? 

MOV  BX.(FleHd]  ;get  flto  handle 

CMP  BX,0  ;ls  a  file  open? 

JNZ  PR1 

CALL  FILE  ERR 

JMP  SHOOT  PR4 

; — ^were  the  percentles  in  the  data  Re? 

PR1:  MOV  CL.[Ranked]  ;are  percentles  set? 

CMP  CL,0  ;i8  a  type  selected? 

JNZ  PR2 

CALL  RANK  ERR 

JMP  SHOOT  PR4 

; - Is  the  printer  on  line? 

PR2:  CALL  ON  UNE 
JNC  PRC  " 

CALL  LPT_ERR 

PR4:  STC  ~  ;set  error  flag 

PR5;  POP  DX  ;restore  registers 

POP  CX 

POP  BX 

POP  AX 

RET 

ENDP  IS  PRINT 


;e)dt  on  primer  error 
;raMr/coi  hex 

isxlt  on  printer  error 

;strVig  holds  Bold  OFF 
;exli  on  primer  error 
;rowr/coi  hex 

'.exit  on  priraer  error 

;bottom  information  box 

lexk  on  printer  error 
‘.restore  registem 
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Input  -  none 
Output  -  none 
PROC  LPT  ERR 


CALL 

'CLEAR  MESSAGE 

MOV 

AL.[Warning] 

nMvnlng  color 

MOV 

CL.[Color] 

;save  original  color 

MOV 

[Color]>L 

'.set  color 

MOV 

AX.0207h 

;row  3/Coi  8 

CALL 

GOTOYX 

:aat  cursor 

CALL 

CSTR_OUT 

;dispiay  vMamlng 

db 

’  PrinMir  Not  On  Line! 

Check  poNver  or  LPT  asslgnmert.* 

db 

’  Prees  Any  Key.  *,0 

MOV 

[Color], CL 

;restore  original  color 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

get” char 

RET 

ENDP  LPT_ERR 

• 

Input  - 

none 

Output 

-  none 

PROC  RANK  ERR 

CALL 

OJEAR  MESSAGE 

MOV 

AL,[Warning] 

;wamhg  color 

MOV 

CU[Color] 

'.save  original  color 

MOV 

[Color]>U. 

;set  color 

MOV 

AX.0207h 

:row  3/Coi  8 

CALL 

GOTOYX 

-jetcursw 

CALL 

CSTR  OUT 

;diaplay  naming 

db 

'  Use  the  'Rank*  command  to  compute  the  percentles.* 

db 

’  Press  Any  Key.  ',0 

MOV 

[Color],CL 

'.restore  ori(^  color 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

GET" CHAR 

RET 

ENDP  RANK_ERR 


Input  «  none 
Output  -  none 


PROC  RLE  ERR 


CALL 

MOV 

MOV 

MOV 

MOV 

CALL 

CALL 

db 

db 

MOV 

CALL 


CLEAR^MESSAGE 

AL,  [Warning] 

CL.[Color] 

[Color]^ 

AX.0207h 

60T0YX 

CSTR  OUT 


;wBming  color 
;save  ori(^  color 
;set  color 
;row  3/Col  8 
;set  cursor 
'.display  warning 


*  Use  the  'Fie'  commarKi  to  select  a  SLDI  data  fto." 

’  Press  Any  Key.  ’,0 

[Color], CL  ;restore  original  color 

HIDE  CUR 
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CALL  ERR  SOUND 
CAa  GET" CHAR 
RET 

ENDP  PILE  ERR 


InpU  ■ 

>  non* 

Output 

•  non* 

PROC  PROGRESS  MESSAGE 

PUSH 

AX 

PUSH 

BX 

PUSH 

cx 

PUSH 

ox 

MOV 

AL,[M*nu] 

;m*nu  color 

MOV 

CUIColor] 

:sav*  oitalnal  color 

MOV 

[Colo^^M. 

;s*t  color 

MOV 

AX.0207h 

;row  3/Col  6 

CAa 

GOTOYX 

;s*t  cursor 

CAa 

CSTR_OUT 

;display  string 

db 

’  PI**8«VI«it . 

Printing  report  tor  ID  Number:  ',0 

MOV 

AX.Ofl**tiD 

CAa 

OSTR  OUT 

CAa 

CSTR  OUT 

‘.(Ssplay  pertod 

db 

*.*.0 

:*ndOfStlng  marker 

MOV 

[Colorl.CL 

;  restore  original  color 

CAa 

HIDE  CUR 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  PROGRESS_MESSAGE 

• 

Input « 

ASCII  numbor  string  in  [ID] 

Output 

«  non* 

PROC  LOCATE  MESSAGE 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

CAa 

CLEAR  MESSAGE 

MOV 

AL,[Mm] 

;menu  color 

MOV 

CU[Color] 

;save  original  color 

MOV 

(Color]>U. 

;*ot  color 

MOV 

AX,0207h 

;row3/Col8 

CAa 

GOTOYX 

;aet  cursor 

CAa 

CSTR_OUT 

;display  string 

db 

'  Pleas*  wait . 

Searching  fie  for  ID  Number  ’,0 

MOV 

AX.  Offset  ID 

CAa 

DSTR  OUT 

CAa 

CSTR  OUT 

;display  period 
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db 

■‘.0 

MOV 

{Cdor].a 

;raatore  originei  color 

CALL 

HIDE  CUR 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  LOCATE.MESSAGE 

t 

; - Requeet  PrMer  Port  Status 

input  « 

Assign  port  In  [LPT]  0  •  2 

Output 

-  Carry  Ftag  «  port  not  ready 

PROC  ON  UNE 

PUSH 

AX 

:aave  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

AX.0200h 

:get  status  function  no 

MOV 

OX.(LPTl 

iptrto  port 

INT 

17h 

:  request  s***«is 

AND 

AH,10h 

;ls  printer  ready  7 

JNZ 

ISR1 

:0  means  printer  error 

STC 

;set  carry  tag 

ISR1:  POP 

OX 

;restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  ON^UNE 

; - Eject  paper  on  HP  laser. 

Ir^MJt  > 

None 

Output 

>  None 

PROC  EJECT 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

AX.Offset  FFeed 

CALL 

PRINT  STRING 

POP 

AX 

;restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  EJECT 

I - InIMize  the  HP  laser. 

Input  >  Notm 
Output  -  None 
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pfioc  mmAUZE  hp 

PUSH  AX  ' 

PUSH  BX 

PUSH  CX 

PUSH  OX 

MOV  AX.OIf8Mlnk 

CALL  PRINT  STRING 

POP  DX  “ 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  INfTIALIZE_HP 


- RMtor*  (MuA  Mitina  to  the  laser. 

Input  -  Norte 
Output  -  None 


PROC  RESTORE  HP 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

RESTORE  MESS 

'.Norm  user 

MOV 

SI.OffaotM 

;ptr  to  ASCII  suing 

; - get  character  to  be  aeni  to  LPT  port 

RR1;  MOV 

AL.ISI1 

;load  Char  to  send 

CMP 

AUO 

;is  this  end  of  string? 

JZ 

RR4 

;tf  yes  normal  exit 

; — send  character  to  assigned  LPT  port 


;aave  registers 


:ra8tore  registers 


XOR 

AH.AH 

:0  -  BIOS  function  No. 

MOV 

DX.[LPT1 

;get  LPT  port  assign. 

INT 

17h 

;send  char  to  printer 

; — test bitSofS.  Kbits- 

0  then  no  poerer. 

TEST 

AH.10h 

;ls  printer  poevered  up? 

JZ 

RR4 

:exitKNO 

; — test  bit  1  of  8.  K  bit  1  « 

1  then  printer  time-out 

TEST 

AH.01 

;is  printer  time-out? 

JNZ 

RR4 

;K  YES  then  exft 

; — pause  1/3  second  or  up  to  1/6  second  once  each  hour. 

RR2:  MOV 

AH.0 

^function  number 

INT 

lAh 

;get  DOS  dock  ticio 

MOV 

BX.DX 

;save  ticfcs  in  CX 

MOV 

AX.3 

;18.2  ticks  per  second 

ADO 

BXM 

;add  15  seconds 

JC 

RR2 

;loop  tf  over  ficwv 

RR3:  MOV 

AH,0 

;funcdon  number 

INT 

lAh 

;get  DOS  dock  ticks 

CMP 

DX.BX 

;ha8  time  run  out  ? 

JC 

RR3 

;V  not  loop  unM  done 

INC 

Si 

;poN  to  next  char 

JMP 

SHORT  RR1 

;loop  until  finished 

RR4:  CLC 
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POP  ox  ;rMUx«  registers 

POP  CX 

POP  BX 

POP  AX 

RET 


Input  -  none 
m  none 

raOC  RESTORE  MESS 


CALL 

CLEM%  MESSAGE 

MOV 

AL,[M^] 

MOV 

CL.[Color] 

MOV 

|Color].AL 

MOV 

AX.020Ah 

CALL 

QOTOYX 

CALL 

CSTR  OUT 

db 

'  Please  wait . 

db 

’HP  Printer.  ’.0 

MOV 

[Color].CL 

CALL 

RET 

HIDE  CUR 

ENDP  RESTORE  MESS 
ENDP  REST0RE”HP 


:menu  color 
;seve  original  color 
;set  color 
;roMr  3/Col  8 
;set  cursor 
;dlsplay  vwaming 
whle  resattirtg  the ' 

;restore  original  color 


printer  cursor  in  row/col  position 
Input  -  AX  >  roMv/coi  in  hex 
Output  »  None 
PROC  HPGOTOYX 


PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

BKM 

;8aye  row/coi 

CMP 

AL.100 

;is  col  <  100  ? 

JC 

QOT1 

;l  yes  Ok  continue 

XOR 

ALM 

;if  NO  coiunm  «  0 

:  XOR  AH.AH 

;zero  to  high  byte 

MOV 

CL.10 

;divisortoCL 

DIV 

CL 

iconvert  to  dedmai 

OR 

AX.3030h 

;convert  to  ASOI  digit 

MOV 

[Col]^ 

;save  digit 

MOV 

AL.BH 

;moMerawto  AL 

CMP 

AU100 

;is  row  <  100  ? 

JC 

GOT2 

;Wyes  Ok  continue 

XOR 

AiJV. 

NO  row  -  0 

!:  XOR  AH^ 

;2ero  to  high  byte 

MOV 

0,10 

idMsor  to  CL 

DIV 

CL 

iconveit  to  decimal 

OR 

AX.3030h 

iconvert  to  ASOI  digtt 

MOV 

[Rowl,AX 

;aave  di(^ 

MOV 

AX.0ff8et  Goto 

CALL 

PRINT  STRING 
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;rMtor«  rtgiiters 


POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENOP  HPQOTOYX 


- Show  tho  oonttnts  of  the  AH  register  to  screen. 

Used  for  showing  feedback  from  LPT  port  using  INT  I7h  cels 
input  •  None 
Output  •  None 

Caled  from:  PRtNT_SrRING  V  [Debug]  is  ON 


PROC  SHOW  AH 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 

-display  contertts  of  AH  register  in  binary 
MOV  BijyH 
MOV  AX.0734h 
CALL  GOTOYX 
CALL  CSTR  OUT 
db  ’low  *.0" 

MOV  CX.8 
AHO;  MOV  AX.BX 
AND  AX.1 
CALL  BIN  OUT 
CL.5 
AH1 

CSTR  OUT 
‘to’.o” 

BL.1 
AHO 

CSTR  OUT 
’hlgh’,0 


:save  input  in  BX 
;row/CQim 


;ioop  counter 
;zero  aB  bft  but  first 


CMP 
JNZ 
CALL 
db 

AH1:  SHR 
LOOP 
CALL 
db 

ac 

POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  SHOW  AH 


■instructions  for  the  Print  command. 
Input  >  None 
Output  •  None 


iloopStimes 


;aave  registers 


PROC  PRINT  INSTRU 
PUSH  M. 
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PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX.1500h 

;roMV  21,column  0 

CALL 

MENU  BOX 

;draMr  menu  bOK 

MOV 

CL(C^] 

;gat  aaslgnad  color 

MOV 

ALtMenu] 

;get  menu  color 

MOV 

[Cdor]^ 

;aat  menu  odor 

MOV 

AX.ieOBh 

:roMv  22.cdumn  12 

CAa 

GOTOYX 

CALL 

CSTR  OUT 

db 

'Press  the  <Esc>  key  to  pause  or  cancel  the ' 

db 

'prMing  of  reports.', 0 

CALL 

HIDE  CUR 

MOV 

(Cdorl.CL 

;roslore  assigned  odor 

POP 

DX 

;reatore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  PRINT JNSTRU 

t 

; - Find  ID  number  In  current  open  data  fie. 

Input  - 

three  digit  ASCII  number  in  [ID] 

Output 

-  Carry  flag  «  not  found 

PROC  LOCATE 

PUSH 

AX 

;save  rafters 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX,DS 

iassH^  ES  -  DS 

MOV 

ES,AX 

CALL 

GOTO  TOP 

He  ptr  to  BegOfFle 

JC 

SEA6 

;e)(it  on  error 

; — locate  ID  number  In  the  data  fie 

CALL 

LOCATE  MESSAGE 

;inform  user  d  search 

SEA1:  CALL  CLEAR  RLBUF 

;heK  O's  to  fie  buffer 

CALL 

READ  UNE 

;1  Hne  from  data  fie 

JNC 

SEA2" 

indEndOfFle 

MOV 

AL.0FFH 

;mark  EndOfFle  true 

MOV 

IE0F1,AL 

;<>  0  ■  True 

SEA2:  MOV 

CX.3 

;loop  counter 

MOV 

OI.OIfset  ID 

;ptr  to  ID  number 

MOV 

SLOffset  FIBuf 

;ptr  to  data  fie  line 

CLD 

;auto  Inc  Of  and  SI 

REP 

CMPSB 

;are  the  bytes  >  ? 

JZ 

SEAT 

:V  YES  exit  found 

XOR 

AUAL 

',zeto  AX  redater 

CMP 

AL,[EOF] 

;is  EndOfFle  TRUE? 

JZ 

SEA1 

;False  -  get  next  line 

SEAS:  CALL  NOT_FOUNO  ;inforTn  user  not  found 
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SEA6:  STC 

;carry  lag  -  not  found 

SEAT:  POP 

DX 

;rostore  registers 

POP 

CX 

POP 

BX 

POP 

RET 

AX 

Input « 

none 

Ouput 

•  none 

PROC  NOT  FOUND 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

CL,[Coior] 

:alore  originol  Color 

MOV 

AL,(Wbming] 

iwaming  color 

MOV 

[Color]^ 

:set  color 

MOV 

AX.0107h 

;row  3/Coi  12 

CALL 

QOTOYX 

;aet  cursor 

CALL 

CSTR  OUT 

idispiay  warning 

db 

‘  The  ID#  Is  not  in  current  data  fie.  ’ 

db 

'Press  any  key  to  continue.  ‘.0 

MOV 

(Colorl.CL 

;restore  original  color 

CALL 

HIDE  CUR 

CALL 

ERR  VXJND 

CALL 

qet'char 

ac 

;ciearcf «  continue 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

RET 

AX 

ENDP  NOT  FOUND 

ENOP  LOCATE 

PROC  ERR  SOUND 
PUSH  “ax 

MOV  AX.Off8etBeep 
CALL  SOUND 
POP  AX 
RET 

ENOP  ERR_SOUND 

; - Print  a  data  poM  in  tha  chart 

input  -  AX  «  atartinQ  row/ooi  of  value  1 
BX  «  Olfeet  of  data  value  In  FIBuf 
Output  «  Cwy  flag  »  i^Mit  printing 
Note:  this  procedure  is  used  to  plot  aR  data  points 
DX  -  store  hex  value  of  point 
CX  -  ioopcounier 

Note:  points  are  loaded  In  with  the  units  digit  In  AH  and  tens  In  AL 
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PROC  CHART  POtMT 

PUSH  AX  :«w*reQltt*» 

PUSH  BX 
PUSH  CX 
PUSH  DX 

:  ttt  cursor  at  value  *r  on  the  chart 


CALL  HPQOTOYX 

;setpoaton 

X  CP8 

;eKk  on  primer  error 

Hiat  vahM  from  fla  data  buffer 

MOV  AX.[BX] 

;poim  value 

CMP  AX.2020h 

;iail  <apacea>? 

JZ  CP7 

;tf  yea  asdt  no  error 

CMP  AX.0 

:1a  K  EndOlUne? 

JZ  CP7 

;tf  yea  aadt  no  error 

; — does  It  need  rounding 

CMP  BYTE  PTR  IBX  +  2i;5’ 

.round  the  number  ? 

X  CP2 

;tf  <  S  -  no  round 

-round  the  number 

CMP  ah;9‘ 

:is  unit  di{^  «  9 

JZ  CPI 

;lf  Yea  goto  ever  flow 

INC  AH 

;el8e  advance  units 

JMP  SHORT  CP2 

;goto  next  test 

CPI:  MOV  AH.’O* 

-.adjust  V  over  flow 

INC  AL 

{example  29  to  30 

CP2;  AND  AX.0CFCFh 

{Convert  to  hex 

MOV  DX^ 

{save  nurmMT  in  DX 

XOR  CX.CX 

{zero  to  loop  coumer 

ADO  CUOL 

.-get  tens  digit 

JZ  CP7 

{Stdt  data  error 

DEC  CX 

{scale  starts  at  1  not  0 

JZ  CP4 

{H  zero  skip  tens 

CMP  CX,5 

{is  data  in  bounds? 

JNC  CP7 

{OKk  fl  out  of  bounds 

MOV  AX.Offset  NextNo 

{ptr  to  next  tens  str 

CP3:  CALL  PRINT  STRING 

{advance  to  next  tens 

X  CPS  " 

{extt  on  printer  error 

LOOP  CP3 

{loop  until  tens  -  0 

CP4:  XOR  CX.CX 

{zero  to  loop  coumer 

ADD  CL.DH 

{get  units  digit 

JZ  CP6 

{fl  zero  skip  units 

CMP  CX.10 

{is  data  in  bounds? 

JNC  CP7 

{exK  fl  out  of  bounds 

MOV  AX.Offset  NextUn 

{ptr  to  next  units  str 

CPS:  CALL  PRINT  STRING 

{advance  tonesdunit 

X  CPS  “ 

{0dt  on  prinmr  error 

LOOP  CPS 

{loop  until  units  -  0 

CPS:  MOV  AX,Off8et  Point 

-.ptr  to  poim  string 

CALL  PRINT  STRING 

{plot  poM  in  chart 

X  CPS  ■ 

{exk  on  pri^  error 

CP7:  CLC 

CPS:  POP  DX 

{restore  registers 

POP  CX 
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POP  BX 
POP  AX 
RET 

ENDP  CHART_POINT 

; - Place  the  cursor  in  the  disired  positon  In  the  chart. 

Input  >  AX  *  Data  value  to  position  cursor  in  ASCII  form 
Output  -  Cary  flag  -  abort  printing 
Note:  this  procure  more  the  cursor  for  pfodng  percentfes 
DX  -  store  hex  value  of  point 
CX  «  loop  counter 

Note:  points  are  loaded  in  with  the  units  digit  in  AH  and  tens  In  AL 


PROC  POSITION  YX 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
AND  AX.0CFCFh 
MOV  DX,AX 
XOR  CX.CX 
ADD  CUDL 
J2  PX5 
DEC  CX 
J2  PX2 
CMP  CX.S 
JNC  PX5 

MOV  AX.Ofrset  NextNo 
PX1:  CALL  PRINT  STRING 
JC  PX6 
LOOP  PX1 
PX2:  XOR  CX.CX 
ADD  CUDH 
JZ  PX6 
CMP  CX.10 
JNC  PX5 

MOV  AX.Ofrset  NextUn 
PX3:  CALL  PRINT  STRING 
X  PX6  ■ 

LOOP  PX3 

ac 

JMP  SHORT  PX6 
PX5:  CALL  DATA  ERROR 
PX6:  POP  DX  ” 

POP  CX 
POP  BX 
POP  AX 
RET 

Input  -  none 
OutpiA  «  none 
PROC  DATA  ERROR 


;save  registers 


'.convert  to  hex 
;save  number  in  DX 
;zero  to  loop  counter 
;get  tens  digit 
;if  zero  out  of  bounds 
;beg.  scale  at  1  not  0 
;if  zero  sk^  tens 
;i8  data  in  bounds? 

;exlt  If  ou  of  bourxis 
;ptr  to  next  tens  str 
'.advance  to  next  tens 
;exa  on  printer  error 
;loop  untl  tens  -  0 
Tero  loop  counter 
;get  unto  digit 
;lf  zero  OK!  extt 
;is  data  in  bounds? 

;exit  if  out  of  bounds 
;ptr  to  next  unto  str 
{advance  to  next  unit 
;exit  on  printer  error 
{loop  untl  unto  «  0 
{normal  exit 

{mark  data  error 
{restore  registers 
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PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEAR_MESSAGE 

MOV 

AL,  [Warning] 

^warning  color 

MOV 

CL.[Color] 

;save  original  color 

MOV 

[Color].AL 

;sat  color 

MOV 

AX.0207h 

;row  3/Col  6 

CAa 

QOTOYX 

:aetcmor 

CALL 

CSTR  OUT 

;dlsplay  warning 

db 

’  The  POSITION  YX  proceedure  has  OutOfRange  data. 

db 

'  Press  Any  Key.  ’.0 

MOV 

(Coior],CL 

;restore  original  cok 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

CLC 

get'char 

POP 

AX 

POP 

BX 

POP 

CX 

POP 

RET 

DX 

ENOP  DATA  ERROR 
ENDP  POSrfiON_YX 

; - shaded  area  for  kMvest  to  highest  score. 

Input  «  AX  «  starting  row/col  of  value  1 
BX  •  Offset  of  data  value  In  PerCnt 
Output  «  Cary  flag  «  abort  printing 
Note:  this  procure  is  used  to  plot  percentles 
DX  -  store  hex  value  of  length  of  shading 
CX  -  loop  counter 

Note:  points  are  loaded  in  with  the  units  digit  hi  AH  and  tens  in  AL 


place  percentles  in  the  chart 
Ir^sut  -  AX  -  starting  row/coi  of  value  1 
BX  «  Offset  of  data  value  in  PerCnt 
Oufout  «  Cary  flag  -  abort  printing 


PROC  CHART  PERCENTILES 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  DX^VX 

; — set  cursor  at  value  M*  on  the  chart 
CALL  HPGOTOYX 
X  CHM2 

; - chsjt  the  median 

ADD  BX.4 
MOV  AX.(BX1 


;save  registers 


;save  row/col  position 

;set  poskon 
;exit  on  printer  error 

;ptr  median  fo  buffer 
;get  vtf  ue  from  chart 
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CMP 

AX.2020h 

;is  it  <spece8>? 

JZ 

CHM1 

;if  yea  sadt  no  error 

CMP 

AX.0 

;ia  it  EndOflJne? 

JZ 

CHM1 

;if  yes  exit  no  arror 

CALL 

POSITION  YX 

:aet  cursor  In  chart 

JC 

CHM2 

;e)dt  if  arror 

MOV 

AX.  Offset  Median 

;ptr  to  median  string 

CALL 

PRINT  STRING 

:print  the  median 

X 

CHM2  ~ 

:exlt  If  error 

; - set  cursor  at  value  *1*  on  the  chart 

MOV 

AX.DX 

;reatore  row/col 

CALL 

HPQOTOYX 

:set  poelton 

X 

CHM2 

;oxit  on  printer  error 

""-chsit  th®  2S% 

INC 

BX 

;ptr  25  percertle 

INC 

BX 

MOV 

AX.[BX1 

;gat  value  from  chart 

CMP 

AX.’  • 

;is  K  <apac8S>? 

JZ 

CHM1 

;if  yea  exit  no  error 

CMP 

AX.0 

:i8  It  EndOILine? 

JZ 

CHM1 

;if  yes  exit  no  error 

CALL 

POSITION  YX 

:s8t  cursor  in  chart 

X 

CHM2 

;exit  if  error 

MOV 

AX.  Offset  Left 

;ptr  to  Left  string 

CALL 

PRINT  STRING 

;pr^  the  median 

X 

CHM2  " 

;exlt  if  error 

; — set  cursor  at  value  M'  on  the  chart 

MOV 

AX.DX 

:restore  tatt/cai 

CALL 

HPGOTOYX 

;8et  posffon 

X 

CHM2 

;exlt  on  pritser  error 

: — chart  the  75% 

INC 

BX 

;ptr  75  percentle 

INC 

BX 

MOV 

AX.[BX] 

:get  value  from  chart 

CMP 

AX.2020h 

;i8  it  <8paces>? 

JZ 

CHM1 

;lf  yes  exit  no  error 

CMP 

AX.0 

;is  It  EndOflJne? 

JZ 

CHM1 

;lf  yes  exk  no  error 

CALL 

POSITION  YX 

;set  cursor  in  chart 

X 

CHM2 

;exlt  if  error 

MOV 

AX.  Offset  Right 

:ptr  to  right  string 

CALL 

PRINT  STRING 

;print  the  median 

X 

CHM2 

:exltK  error 

CHM1;  CLC 


CHM2:  POP  DX  ;restoFe  registers 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  CHART  PERCENTILES 
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;aav«  rsgistars 


PROC  CHART  RANGE  L 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 

; - s«t  cursor  at  valuo  T  on  the  chart 


CALL 

HPGOTOYX 

;sat  poeiton 

JNC 

CPTI 

;V  no  error  continue 

JMP 

CPT15 

;error  exit 

SMt  lowest  values  from  fie  PerCnt  buffer 

CPTI:  MOV 

AX.fBX] 

;gat  loweat  score 

CMP 

AX.’  ■ 

;is  it  <spacee>? 

JNZ 

CPT2 

;i  no  goto  tmt  teat 

JMP 

CPT14 

;V  yes  axkno  error 

CPT2;  CMP 

AX.0 

;lsltEndOIUne? 

JNZ 

CPT3 

;l  no  goto  next  teat 

JMP 

CPT14 

:ff  yes  exit  no  arror 

CPT3:  CMP 

AX.’01* 

;is  the  score  1.0  ? 

JNZ 

CPT4 

:if  NOiumptoCPT4 

MOV 

DX.AX 

leave  value  In  DX 

MOV 

AX.Ofr8et  HalfSp 

iptr  to  1/2  apace  str 

CALL 

PRINT  STRING 

imove  cursor  1/2  space 

JC 

CPT5 

lexlt  on  printer  error 

MOV 

AXDX 

irestore  value  to  AX 

CPT4:  CALL  POSITION  YX 

last  cursor  at  2S% 

CPT5:  JC 

CPT15 

lexR  on  printer  error 

AND 

AX.OCFCFh 

iconvert  to  hex 

MOV 

OX.AX 

isaveinDX 

;-~-get  high  values  fr^m  fie  PerCnt  buffer 

INC 

BX 

iptr  to  hH^iest  score 

INC 

BX 

MOV 

AX.IBX) 

igat  high  score 

CMP 

AX.2020h 

lislt  <8peces>? 

JZ 

CPT14 

;lf  yes  e)dt  no  error 

CMP 

AX.0 

;is  it  EndOfUne? 

JZ 

CPT14 

;lf  yes  exK  no  error 

CMP 

AX.’05' 

lis  it  a  5.0? 

JNZ 

CPT8 

;K  no  continue 

MOV 

CX.AX 

leave  value  in  CX 

CMP 

DH.0 

lis  starting  unit  -  0? 

JNZ 

CPT6 

it  not  back  1/2  apace 

MOV 

AX.Offset  FtJIBk 

ipb*  to  fii  space  str 

JMP 

CPT7 

igoto  prlnt_at^ 

CPT6:  MOV 

'  AX.Offset  BackSp 

iptr  to  1/2  space  str 

CPT7:  CALL  PRINT  STRING 

imove  cursor  1/2  space 

JC 

CPT15 

lexK  on  printer  error 

MOV 

AX.CX 

irestore  value  to  AX 

CPT8:  AND 

AX.0CFCFh 

iconvert  to  hex 

; - sub  low  from  high  (remember  tens  unit  is  in  low  register 

CMP 

AH.DH 

ido  1  have  to  borrow? 

JNC 

CPT9 

it  no  ready  to  sub 

ADD 

AH.10 

ladd  borrow  to  units 
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DEC 

AL 

CPT9:  SUB 

AH.OH 

SUB 

ALDL 

JC 

CPT14 

MOV 

DXAX 

XOR 

CXCX 

ADO 

CL.DL 

JZ 

CPT11 

CMP 

CX5 

iiJC 

CPT14 

MOV 

AXOffsetTenU 

CPT10:  CALL  PRINT  STRING 

X 

CPT15 

LOOP 

CPT10 

CPT11:  XOR  CXCX 

ADD 

CL.DH 

JZ 

CPT14 

CMP 

CX10 

JNC 

CPT14 

CMP 

CL.4 

X 

CPT12 

INC 

a 

CMP 

CL.7 

X 

CPT12 

INC 

a 

CPT12:  MOV  AX.OR8«t  Until 
CPT13:  CALL  PRINT  STRING 
JC  CPT15 
LOOP  CPT13 
CPT14:  CLC 
CPT15:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  CHART  RANGE  L 


itans  •  tans- 1 
;aubtarct  unit  (ttgft 
;subtract  tan  digit 
;a>dt  If  vMua  <  0 
;sava  anaiwar  In  DX 
;zaro  to  loop  countar 
:oat  tans  digit 
:lf  zsro  skip  tans 
;is  data  In  bounds? 
iSKit  If  out  of  bounds 
:ptr  to  nsKt  tans  str 

;advanca  to  next  tans 
;axlt  on  piMar  arror 
;loop  unll  tans  -  0 
.zaro  C9C  rsgistar 
;gat  units  digit 
;V  zaro  aMp  units 
:is  data  in  bounds? 

;axlt  If  out  of  bounds 
:is  units  1,2  or  3  ? 

;V  yes  draw  units 
;add  1  to  units 
;orig  unit  4  5  or  6? 

;V  yas  draw  units 
;add  1  to  units 

;ptr  to  next  units  str 
^advance  to  next  unit 
:a(xlt  on  printer  error 
;loop  unti  units  «  0 

;re8tora  registers 


PROC  CHART  RANGE  D 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 


;save  ra(^8ters 


; — set  cursor  at  value  *1'  on  tfia  cfwt 
CALL  HPGOTOYX 
JNC  DPT1 
JMP  DPT15 

; - get  lowest  values  from  fla  PerCnt  buffer 

DPT1;  MOV  AX.[BX] 

CMP  AX’  • 

JNZ  DPT2 
JMP  DPT14 


;satpositon 
;V  no  arror  cortinue 
;arror  aadt 

;get  lowest  score 
;is  It  <speca8>? 

;f  no  goto  next  test 
;ff  yes  exit  no  error 
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DPT2;  CMP  AX.0 

lit  K  EndOfUns? 

JNZ  0PT3 

:l  no  goto  next  test 

JMP  DPT14 

;f  yes  exit  no  error 

DPT3:  CMP  fO^'OV 

;ie  the  score  1.0? 

JNZ  DPT4 

;i  NO  iwip  to  DPT4 

MOV  DXJKX 

:save  value  In  DX 

MOV  AX.OflMt  HaKSp 

:ptrto  1/2  space  atr 

CALL  PRINT  STRING 

:mcve  cursor  1/2  space 

JC  DPT5 

:eKfe  on  printer  error 

MOV  AX.OX 

;roatore  value  to  AX 

DPT4:  CALL  POSITION  YX 

:eat  cursor  low  range 

OPTS:  JC  DPTiS 

;eKK  on  printer  error 

AND  AX.0CFCFh 

;conwert  to  hex 

MOV  DXJVX 

:aevelnDX 

; - gat  high  valUM  from  ll«  PwCnt  buRier 

INC  BX 

:ptr  to  highest  score 

INC  BX 

MOV  AX.[BX] 

;get  high  score 

CMP  AX2020h 

;isit  <apaces>? 

JZ  DPTi4 

;tf  yes  exit  no  error 

CMP  AXO 

;ls  II  EndOlUne? 

JZ  DPT14 

;V  yes  exk  no  error 

CMP  AX, ‘OS' 

;is  It  8  S.0? 

JNZ  OPT8 

:V  no  continue 

MOV  CXJVX 

;seye  value  In  CX 

CMP  DH.0 

;is  starting  unit  >  0? 

JNZ  OPTS 

;V  not  backup  1/2  sp 

MOV  AX.OR8et  FuRBk 

;ptr  to  full  space  str 

JMP  DPT7 

;gato  move  curosr 

OPTS:  MOV  AX.Offset  BackSp 

;ptrto  1/2  space  str 

DPT7:  CALL  PRINT  STRING 

;nK3ve  cursor  1/2  space 

JC  CPT1S 

;e9dt  on  printer  error 

MOV  AX.CX 

;restore  value  to  AX 

DPT8:  AND  AX.0CFCFh 

;conveit  to  hex 

; — sub  kwv  from  high  (rsmember  tens  unit 

is  in  low  register) 

CMP  AH,DH 

;do  1  have  to  borrow? 

JNC  DPT9 

;if  no  ready  to  sub 

ADO  AH.10 

;add  borrow  to  units 

DEC  AL 

;ter«  -  tens  •  1 

DPT9:  SUB  AH.DH 

;subtarct  unit  digit 

SUB  AL.DL 

;subtract  ten  di(^ 

JC  DPT14 

;exK  V  value  <  0 

MOV  DXM 

;save  answer  hi  DX 

XOR  CX.CX 

;2ero  to  loop  counter 

ADO  CL.OL 

;get  tens  digit 

JZ  DPT11 

;i  zero  skip  tens 

CMP  CX.S 

;is  data  In  bounds? 

JNC  DPT14 

;e)dt  f  out  of  bounds 

MOV  AX.Offset  TenOk 

;ptr  to  next  tens  str 

DPT10:  CALL  PRINT  STRING 

wivance  to  next  tens 

X  DPTIS 

;exit  on  prMer  error 

LOOP  DPT10 

:loop  unti  tens  -  0 
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DPT11:  XOR  CX.CX  ;nro  CX  ragittar 


ADO 

CL.DH 

;gat  units  digit 

JZ 

DPT14 

;ir  zero  skip  units 

CMP 

CX.10 

;is  data  in  bourKis? 

slTlw 

DPT14 

;exit  1  out  of  bounds 

CMP 

CL,4 

:is  units  1.2  or  3  ? 

JC 

DPT12 

;tf  yes  <tow  unto 

INC 

CL 

;add  1  to  unto 

CMP 

CL.7 

;orig  unit  4  5  or  6? 

JC 

DPT12 

;ff  yes  draw  unto 

INC 

CL 

;add  1  to  unto 

DPT12:  MOV  AX.Offaet  UntOk 

:ptr  to  nsKt  unto  str 

DPT13:  CALL  PRINT  STRING 

;advBnce  tonsKtunI 

X 

DPT15 

;exit  on  printer  error 

LOOP 

DPT13 

;loop  until  unto  -  0 

DPT14:  CLC 

DPT15:  POP  OX 

.-restore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  CHART_RANGE_D 

1 

;Data  used  by  the  Menu  System 

.DATA 

;MenuOdata  stnjcture 

menuO  dw 

Offset  menuOHK 

;ptrto  menu  HotKeys 

db 

Fie  Rank 

Print  LPT 

db 

Quit  '.0 

db 

05.6  ;lightberposition  in  string  and  ntstiber  of  bytes 

dw 

Offset  nnOl  :poir«er  to  lightbar  message 

db 

18,6 

dw 

Offset  m02 

db 

30.7 

dw 

Offset  m03 

db 

44.5 

dw 

Offset  m04 

db 

56.6 

dw 

Offset  m05 

:the  menu  menuOHK  string  contains  the  hot  keys  that  activate  the  Choice. 
;the  letters  in  the  string  should  include  the  first  letters  of  each  menu  item. 
;these  letters  must  be  in  the  same  order  as  the  menu  toms.  AddRionai 
;hot  keys  maybe  added  to  the  string  if  needed.  The  caling  program  must 
;be  able  to  fltor  these  additional  HotKeys.  The  hot  key  string  must 
;end  wRh  a  zero. 

menuOHK  db  ‘FRPLO’.0  ;Hotkey  ASaiZ  string. 

;messagee  can  be  up  to  72  character  in  length.  The  length  does  not  have  to 
;be  the  same.  The  previous  message  is  cleared  before  the  new  message  is 
;writtea  The  messages  can  be  anywhere  in  the  data  section.  The  numbering 
;system  for  messages:  'mor  stands  for  menuO  meesageO 
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mOI  db  SalMt  •  SLOl  data  lla  for  printing.*, 0 

m02  db  Computt  tha  2Sth  and  7Sth  parcaraiea  for  the  data* 

db  *  m.\o 

m03  db  Print  SLOl  PeedBack  reports  on  a  HP  Laser  Printer.’, 0 

in04  db  Select  the  peraMel  port  anigned  to  the  HP  Laser ' 

db  ’Printer.’,0 

m06  db  '  Exit  the  program  and  return  to  DOS.‘,0 

;and  of  menuO  structure 

iMenuidata  structure 

menul  dw  Offset  menulHK  ;ptr  to  menu  HotKeys 

db  FirstLPT  Second  LPT  Third’ 

db  ’LPT  ’,0 

db  9,11  ;lightborpoelllon  in  string  and  number  of  bytes 

dw  Offset  mil  :pofnter  to  llghtbar  meeaage 

db  28,12 

dw  Offset  m12 

db  48,11 

dw  Oftoet  mi3 

> 

;the  menu  menulHK  stririg  contains  the  hot  keys  that  wi  activate  the  Choice. 
■fiw  letters  in  the  string  should  include  the  first  letters  of  each  menu  Item, 
ithese  letters  must  be  in  the  same  order  as  the  menu  items.  Additional 
;hot  keys  maybe  added  to  the  string  if  needed.  The  oiing  program  must 
;be  able  to  flfter  these  additional  HotKeys.  The  hot  key  string  must 
;end  with  a  zero. 

menulHK  db  ’FST’,0  ;Hotkey  ASCtiZ  string. 

• 

imessages  can  be  up  to  72  character  in  length.  The  length  does  not  have  to 
;be  the  same.  The  previous  message  Is  cleared  before  the  new  message  Is 
;written.  The  messages  can  be  anywhere  in  the  data  section.  The  numbering 
isystem  for  messages:  *ml1'  stands  for  menul  messagel 
mil  db  *  Send  the  SLOl  data  to  the  computer’s  LPT  1 ' 

db  "output  porL',0 

ml2  db  ’  Send  the  SUM  data  to  the  computer’s  LPT  2  ’ 

db  "output  port",0 

ml3  db  "  ^nd  the  SUM  data  to  the  computer’s  LPT  3 " 

db  "output  port",0 
;end  of  menul  structure 

;Menu2data  structure 

menu2  dw  Offset  menu2HK  ;ptr  to  menu  HotKeys 

db  Success  Factors  Falure  Factors' 

(ft)  Main  Menu  ’,0 

db  04,17  '.Hghtbarposition  hi  string  and  number  of  bytes 

dw  Offset  m2l  ;pointer  to  llghtbar  message 

db  29,17 

dw  Ofbat  m22 

db  54,11 

dw  Offset  m23 
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:th»  menu  menu2m  string  contains  the  hot  ksys  thst  vrii  activats  the  Choios. 
;ths  Isttars  in  the  string  shoiJd  inchids  the  first  Isttars  of  each  menu  Item. 
:thaee  letters  must  be  in  the  same  oitfer  as  the  menu  kerns.  Adcttlonai 
;hot  keys  maybe  added  to  the  string  I  needed.  The  caMng  program  must 
;be  able  to  fltor  these  additional  HotKeys.  The  hot  key  string  must 
;end  wkh  a  zero. 

menu2HK  db  'SFM’.O  :Hotlwy  ASCIIZ  string. 

:msnseons  can  be  up  to  72  character  in  lengtK  The  length  does  not  have  to 
;be  the  same.  The  prevloue  meaeaga  is  cleared  before  the  near  meeaage  is 
;wriltea  The  messages  can  be  anywrhere  in  the  data  section.  Thenumbering 
;system  for  mesaagee:  'm2r  stands  for  manu2  meeaagei 
m2i  db  Display  the  names  of  data  fles  for  poekiye  ’ 

db  factors.  ',0 

m22  db  Display  the  nwnes  of  data  fles  for  negative  * 

db  factors.  '.0 

m23  db  Return  to  the  Main  Menu  without  selecting  a  fie.  *,0 

;erxl  of  manu2  structiffe 


;Menu3data  structure 

menus  dw  Offset  menuSHK  ;ptr  to  menu  HotKeys 

db  Single  Report  Afl  Reports  ‘ 

db  ’  ',0 

db  11,15  ;lightbarposition  in  string  and  number  of  bytes 
dw  Offset  m3l  ;pointer  to  lightbar  message 
db  44,13 
dw  Offset  m32 

;the  menu  menu3HK  string  corkains  the  hot  keys  that  wl  activate  the  Choice. 
;the  letters  in  the  string  should  include  the  first  letters  of  each  menu  kern. 
;these  letters  must  be  in  the  same  order  as  the  menu  kerns.  Additional 
;hot  keys  maybe  added  to  the  string  V  needed.  The  caking  program  must 
;be  able  to  fitter  these  addkional  HotKeys.  The  hot  key  string  must 
;erKl  with  a  zero. 

menuSHK  db  ’SA’,0  ;Hotkey  ASOlZ  string. 

;messages  can  be  up  to  72  character  in  length.  The  len(^  does  not  have  to 
;be  the  same.  The  previous  message  is  cleared  before  the  new  message  is 
neritten.  The  messages  can  be  anywhere  in  the  data  sectiort  Thenumbering 
;8ystem  for  messages:  'mil*  stands  for  menul  messagel 
m3i  db  *  Use  the  three  digtt  ID  nunfiber  to  select  a  reporf 

db  *  to  print ',0 

m32  db  *  Print  reports  for  ak  the  ID  numbers  in  the’ 

db  '  data  fle.‘,0 
;and  of  manu3  structure 

.CODE 

I 

Present  the  Main  Mersi  and  Title  screen 
Input  -  None 
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Output  «  M  crtticai  DOS  •nor.  Error  numbsr  is  in  AL 
CH  -  Isat  choioo  CL  -  max  numtMT  of  choicas 
PROC  MAIN  MENU 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  OX 

; - (ftmr  pilling  acrtsn 

XOR  AX>0(  :rowr  0  and  column  0 


CALL 

MENU  BOX 

:draw  top  menu  box 

CALL 

draw" title 

CAU 

DISPLAY  STATUS 

;display  name  &  LPT  po 

CALL 

MENU  INSTRU 

bottom  box 

MOV 

cH.or 

:atartino  menu  ssiection 

MAI:  MOV 

AX,  Ofhst  MenuO 

MOV 

CL.5 

;max  choice  for  msruji 

CALL 

GET  CHOICE 

:gsta  menu  selsctions 

; - is  It  Esc  ksy  ? 

CMP 

AH,0h 

;vMas  <ESC>  key  pressed? 

JNZ 

MA2 

:lf  not  goto  next  test 

CALL 

EXIT  YN 

;exlttoDosY/N? 

JNC 

MAl" 

:tf  no  gst  nsad  choice 

JMP 

MAS 

:Exit  on  <Esc>  key 

MA2:  MOV 

CH,AH 

-.save  current  choice 

; - is  It  Ssiect  a  data  fie  ? 

DEC 

AH 

;is  this  the  choice? 

JNZ 

MAS 

;if  not  goto  next  test 

CALL 

GET  PATH 

:get  fie  path 

X  1 

MA2B" 

'.main  menu  1  Esc  key 

CALL 

REPORT  MENU 

;Open  an  SLDI  data  fie 

MA2B:  XOR 

AX.AX" 

;row/column 

CALL 

MENU  BOX 

;cleer  menu  box 

JMP 

SHORfMAl 

;get  another  choice 

; - is  It  Rank  ths  variables? 

MA3:  DEC 

AH 

:is  this  the  choice? 

JNZ 

MA4 

;if  not  goto  next  test 

CALL 

RANK  DATA 

;compute  presentles 

CALL 

MENU"  INSTRU 

;re8tore  bottom  box 

CALL 

DISPLAY  STATUS 

JMP 

SHORT  MAI 

:gst  another  choice 

: - is  it  Print  the  data  fie? 

MA4:  DEC 

AH 

;is  this  the  choice? 

JNZ 

MAS 

;V  not  goto  next  test 

CALL 

PRINT  MENU 

JMP 

SHORfMAl 

;gst  another  choice 

; — is  It  choose  a  Laser  port? 

MAS:  DEC 

AH 

JNZ 

MAS 

CALL 

PORT  MENU 

:Sslect  LPT  port 

JMP 

SHORT  MA7 

irstum  to  main  menu 

; - is  It  the  Exit  command  ? 

MAS:  DEC 

AH 
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JNZ 

MAT 

.go  get  another  choice 

CALL 

EXIT  YN 

;exk  to  Dos  Y/N  7 

JC 

MAS  ~ 

;tf  yessKk.  else 

MA7 

CAa  DISPLAY  STATUS 

:dlspiay  status  report 

JMP 

SI-iORT  MAI 

;gst  next  choice. 

MA8 

CLC 

:clear  cf  «  normal  exk 

MAS: 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  MAIN  MENU 

PrM  Menu  for  selecting  a  single  or  aH  reports. 

input  - 

None 

Oikput 

-  if  critical  DOS  error  Error  number  is  In  AL 

CH  -  last  choice  CL  -  max  number  of  choices 

PRCX:  PRINT  MENU 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

IS  PRINT 

;is  data  ready  to  pr1r«? 

X 

pm" 

;exk  V  not  ready. 

MOV 

CH.1 

;atartirtg  menu  selection 

Pll: 

MOV 

AX.  Offset  Menus 

MOV 

CL.2 

;max  choice  for  menul 

CAa 

GET  CHOICE 

;get  a  menu  selections 

; - is  k  Esc  key  ? 

CMP 

AH.0h 

ym»  <ESC>  key  pressed? 

JZ 

PM 

;H  yes  exk  menu 

MOV 

CH.AH 

:s8ve  currert  choice 

: — 

is  k  a  Single  Report  ? 

DEC 

AH 

;ls  this  the  choice? 

JNZ 

PI2 

;lf  not  goto  next  test 

CAa 

PRINT  ONE  REPORT 

:for  a  single  ID  number 

CAa 

menu"  instru 

;restore  bottom  box 

JMP 

SHORfPM 

;exk  proceture 

: — 

Is  k  Print  them  AH  ? 

PI2: 

DEC 

AH 

;is  this  the  choice? 

JNZ 

Pll 

;NO  -  get  next  choice 

CAa 

PRINT  Aa  REPORTS 

;for  a  aH  ID  numbers 

CAa 

MENUJNSTRU 

;rastore  bottom  box 

PM: 

CLC 

;clear  cf  «  normal  exk 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  PRINT^MENU 


Menu  for  selecting  the  LPT  output  port. 
Input  -  None 


G-60 


Output  «  if  cfWcai  DOS  mor  Error  number  is  in  AL 
CH  -  iMt  choice  CL  -  max  number  of  cholcee 
PROC  PORT  MENU 


PUSH 

Jx 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

CX.ILPT1 

icurrem  port  assignmem 

MOV 

CH.a 

:piace  hi  CH  registar 

INC 

CH 

:sbiiitbig  menu  selectton 

Mil:  MOV 

AX.  Offset  Menul 

MOV 

CU3 

:max  choice  for  menul 

CALL 

GET  CHOICE 

:geta  menu  lelecttons 

; — Is  it  Esc  key  ? 

CMP 

AH, Oh 

nwas  <ESC>  key  praeeed? 

JZ 

MM 

;l  yee  exk  menu 

XOR 

AL,AL 

;zero  LPT  choice 

MOV 

CH.AH 

;save  currsm  choice 

: - is  It  Select  LPT  1  ? 

DEC 

AH 

:is  this  the  choice? 

JNZ 

MI2 

;if  not  goto  next  test 

XOR 

AH, AH 

;zero  AH  register 

MOV 

(LPT],AX 

;assign  O  to  [LPT] 

JMP 

SHORT  MM 

:exlt  proce^ 

; - Is  it  Select  LPT  2  ? 

MI2:  INC 

AL 

;assign  i  to  AL 

DEC 

AH 

;is  this  the  choice? 

JNZ 

MI3 

;V  not  goto  next  test 

XOR 

AH>V^ 

;2ero  AH  register 

MOV 

ILPT],AX 

assign  1  to  [LPT] 

JMP 

SHORT  MM 

;exit  procedure 

; - is  It  Select  LPT  3  ? 

Mi3:  INC 

AL 

;assign2to  AL 

DEC 

AH 

;is  this  the  choice? 

JNZ 

MU 

;NO  -  get  next  choice 

XOR 

AH,AH 

;2ero  AH  register 

MOV 

[LPT1,AX 

;assign  2  to  [LPT] 

MM:  CLC 

;cleer  cf  -  normal  exit 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  PORT  MENU 

Menu  for  selecting  the  type  of  report  to  prim 
input  -  None 

Output  -  if  crWcai  DOS  error  Error  number  is  hi  AL 
CH  -  iast  choice  CL  -  max  number  of  choices 
PROC  REPORT  MENU 
PUSH  AX" 

PUSH  BX 
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PUSH  CX 
PUSH  DX 
XOR  AX^ 

CALL  MENU  BOX 
CALL  MENUlNSTRU 
MOV  CHI  " 

RE1:  MOV  AX.  OffsM  Mwtu2 
MOV  CL3 
CALL  QET^CHOiCE 
: — to  I  Etc  kpy  ?” 

CMP  AH,0h 
JZ  RE4 
MOV  CH^VH 

; - to  it  a  PotMvt  Report  ? 

DEC  AH 
JNZ  RE2 
MOV  [Report].AH 

JMP  SHORT  RES 

; - to  it  a  Oaralmant  Report  ? 

RE2:  DEC  AH 

JNZ  RE3 
DEC  AH 
MOV  {Report].AH 

JMP  SHORT  RES 

: - to  it  Main  Menu  ? 

RE3:  DEC  AH 

JNZ  RE1 
RE4:  STC 

JMP  SHORT  RET 
RES;  CALL  SELECT  RLE 

CALL  MENU  iNSTRU 
CALL  DRAW'TITLE 
CALL  DiSPLAY  STATUS 
CMP  Vt/ORD  (FleHd],0 
JZ  RE1 
RE6:  aC 

RET:  POP  DX 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  REPORT  MENU 


;row  0  and  column  0 
;dfaMr  top  menu  boat 
;draw  bottom  bOK 
latarting  menu  selection 

;max  choice  for  menu2 
;gete  menu  telectlont 

;vwBS  <ESC>  key  preeaed? 

;tf  yea  aadt  menu 
:aave  current  choice 

;to  thto  the  choice? 

J  not  goto  naset  teat 
;asal(R  0  to  [Report] 

:diaplayflee 

;to  thto  the  choice? 

;ir  not  goto  next  test 
;0  - 1  -FFh 
-.assign  <1  to  [Report] 

;dtopiayfle8 

;to  this  the  choice? 

;if  not  display  menu 
;cf  «  goto  Main  Menu 

;pick  a  fie  to  open 

;redraw  tUe  screer 
;dispiay  name  &  LPT  port 
;i8  a  fie  open? 

;ioop  if  NO  exit  if  YES 
idear  cf  «  normal  exit 


- Get  a  Choice  from  the  Keyboard  from  the  menu  system  pointed  to  by  AX 

Input  «  AX  points  the  desired  Menu  data  structure 
CH  -  Starting  Choice  (menu  Item  to  highlight) 

CL  -  max  number  of  choices  in  thto  menu. 

Output  -  AH  -  Choice  to  returned  to  the  caling  program 
AL  >  Char  from  the  keyboard.  (Return  key  or  Esc  ke^ 

Cais  ’Dispiay_Menu' to  display  the  menu  on  the  screen. 
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'Hot_ki(y»'  to  SM  Is  Char  It  a  HolKay  for  this  menu 


PROC  QET  CHOICE 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

OX.AX 

QEO: 

CAa  DISPLAY  MENU 

MOV 

BL.CH 

QE1: 

CALL  GET  CHAR 

CMP 

AU’f 

JC 

GE4 

CMP 

AL.V 

JNC 

GE4 

CALL 

NUM  LOCK 

GE4: 

CMP 

AL.4 

JNZ 

GE5 

INC 

CH 

6E5: 

CMP 

AL.13h 

JNZ 

GE6 

DEC 

CH 

JNZ 

GE6 

MOV 

CH.a 

GE6: 

CMP 

CUCH 

JNC 

GET 

MOV 

CH.1 

GE7; 

CMP 

AL.OOh 

JZ  I 

GE10 

CMP 

AL,1Bh 

JNZ 

GE8 

SUB 

CH.CH 

JMP 

SHORT  GE10 

GE8: 

CALL 

HOT  KEYS 

X 

GE9 

CMP 

AH.CH 

JZ  1 

3E11 

MOV 

CH^VH 

CALL 

DISPLAY  MENU 

JMP 

SHORT  GE11 

GE9: 

CMP 

CH.BL 

JZ  ( 

3E1 

JMP 

SHORT  GEO 

GE10:  MOV 

AH.CH 

GE11 

:  POP 

DX 

POP 

CX 

POP 

BX 

RET 

PROC  NUM  LOCK 

AND  T^OFh 
DEC  AL 
JNZ  NMLjO 


;manu  to  the  scraan 
;aava  old  Cttoica  In  K. 

;get  kaybowd  Input 
:1s  Omt  <  ‘1’ 

;lf  yao  goto  rtoxt  tast 
;lt  Char  a  digit? 

:lf  not  goto  rtaxt  tatt 
;cOMort  NumLock  pad 
:is  It  a  right  arraur? 

:Jumplf  not 
iChoica  •  Choice  *  1 
;is  It  a  left  arroMT? 

;Jump  If  not 
;Cholca  «  Choice  *1 
;ir  CH  «  0  then 
;aet  CH  «  maxmenu. 

;is  CH  >  maxmenu? 

;lf  yes  then 
;setCH  >  1 
;is  It  a  return  key? 
'.Vyesrehjm 
;lt  It  an  escape  key? 

;lf  no  goto  next  test 
;lf  yes.  choice  >  0 
;exit;  save  new  Choice 
;is  Char  a  hot  key? 
;carry  «  No;  next  char 
;has  Choice  changed? 

;if  not  then  exit 
;save  new  Ooice 

;dispiay  menu  on  Exit 
;exk:  save  new  choice 
;new  Choice- old  Choice? 
;yes  -  no  menu  display 
;no  -  cal  display  menu 
;save  choice  on  Exit 


;convertto  hex 
;tf  not  -  1  contkHje 
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MOV  AU6 
JMP  SHORT  NML7 
NMIjO:  dec  AL 
JNZ  NML1 
MOV  AL.24 
JMP  SHORT  NML7 
NML1:  DEC  AL 
JNZ  NML2 
MOV  AL,3 
JMP  SHORT  NML7 
NML2:  DEC  AL 
JNZ  NML3 
MOV  AL,19 
JMP  SHORT  NML7 
NML3:  DEC  AL 
DEC  AL 
JNZ  NML4 
MOV  AU4 
JMP  SHORT  NML7 
NML4:  DEC  AL 
JNZ  NML5 
MOV  AL.1 
JMP  SHORT  NML7 
NML5:  DEC  AL 
JNZ  NML6 
MOV  AUS 
JMP  SHORT  NML7 
NML6:  DEC  AL 
JNZ  NML7 
MOV  AL,18 
NML7:  RET 
ENDP  NUM  LOCK 


iconvwt  to  End 

:«xft 

;lf  not  >  2  continue 
‘.convert  to  DnArrour 
:e)dt 

;lf  not  >  3  coitinue 
;convert  to  PageOn 
:e9dt 

:lf  not  >  4  cortinue 
;convert  to  LeftArrow 
:e)dt 


;lf  not  >  6  continue 
;convert  to  RtArrow 
‘.exit 

;if  not  B  7  continue 
;conveft  to  Home  Key 
;exit 

;tf  not  B  8  continue 
{Convert  to  UpArrow 
{exit 

{V  not  B  9  conthuie 
{com^  to  PageUp 


Examine  the  Hot  Key  ASCliZ  string  to  find  out  if  Char  is  a  Hot  Key. 
Input  B  al  «  Char 
CH  B  Choice 
CL  B  MaxChoice 

DX  B  pointer  to  the  menu  structure  in  data  segment, 
the  first  word  in  the  data  structure  is  a  pointer  to 
the  Hot  Key  ASaiZ  string. 

Output  B  Carry  Flag  V  Char  in  AL  is  not  a  HotKey 
AH  -  Choice 

AL  -  menu  match  AL  b  ooh 
nonmenu  match  AL  b  Char 

Notes:  Called  by  6ET_CHOICE.  Menu  data  must  be  in  an  exact  format 
See  Menul  data  Mructure  for  an  example  of  the  corrcet  format 
PROC  HOT_KEYS 


PUSH 

BX 

{save  registers 

PUSH 

CX 

PUSH 

OX 

MOV 

SI.DX 

{ptr  to  HotKey  string  pointer 

MOV 

BX.[SI] 

{load  ptr  to  ASCIIZ  HotKey  str. 
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AND  AL.7Fh 
CMP  AL.’a' 

X  H0T1 
AND  AUODFh 
HOTI:  MOV  DX.AX 
XOR  AX>kX 
MOV  SkM 
MOV  ALDL 
HOT2:  CMP  [BX4SI]>VH 
JZ  HOTS 
CMP  [BX<)-SI]>U. 

JZ  HOTS 
INC  SI 

JMP  SHORT  HOT2 
JMP  HOT4 
HOTS:  INC  SI 
MOV  BX.SI 
MOV  AH.CH 
CMP  CUBL 
X  HOT4 
MOV  AH,BL 
HOT4:  CLC 

JMP  SHORT  HOT6 
HOTS:  MOV  AH.CH 
STC 

HOTS:  POP  DX 
POP  CX 
POP  BX 
RET 

ENOP  HOT  KEYS 


;mak«  0  - 127  ASOI  char. 

;i8  char  a  smal  latter? 

;lf  not.  Ok  cortiiHie. 

:change  to  capital  char 
laava  Char  ht  DX 
;2eroto  AX 
;new  Choice  counter 
;Char  retume  to  AL 

:1s  this  the  End  of  String? 
;exit;  no  match  fourvl 
;is  Char  a  Hot  Kay? 

;0  «  found  a  Hot  Key 
;choice  «  choice  +  l 

:check  the  nertt  Char  In  string. 

icholce  -  choice  +  1 
{Choice  counter  to  BL 
-.original  Choice  to  AH 
:is  choice  a  menu  kern? 

{Carry  >  not  a  menu  kern 
{set  imt  Choice 
{dear  carry  -  HotKey  found 
{Exk  (found) 

{restore  original  Choice 
{set  carry  flag  -  not  HotKey 
{restore  registers 


Display  menu  string:  NgNight  one  menu  kern:  and  wrke  message  string. 
Input  -  DX  pointer  to  the  menu  structure  in  data  segment. 

CH  -  Choice 
Ouput  »  None 

Notes:  Called  by  QET_CHOICE.  Menu  data  must  be  fo  an  exact  format. 
See  Menidata  structure  for  an  example  of  ttre  rorrcet  format. 
PROC  DISPLAY_MENU 


PUSH 

AX 

{Save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

INC 

DX 

{Skip  HotKey  string  offset 

INC 

DX 

{ptr  to  begitining  menu  string 

MOV 

AL,(Menul 

{menu  color  attrttxite 

MOV 

[CoforlJkL 

{Change  color  attrttsute 

MOV 

AX.0107h 

{Starting  position  for  cursor 

CALL 

GOTOYX 

{place  cursor 

MOV 

AX.DX 

{Offset  menu  to  AX 

CALL 

DSTR^OUT 

{Display  menu 

MOV 

AL,[Vfoming] 

{color  for  lightbar 

MOV 

(Coior]>U. 

{Change  color  attribute 
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SUB 

AX.AX 

ADO 

AL.CH 

JZ 

DIPl 

DEC 

AL 

MOV 

CU2 

SHL 

AX.a 

INC 

SI 

ADD 

SI  AX 

MOV 

BX.(SI] 

MOV 

CUBH 

SUB 

BH.BH 

DEC 

BL 

MOV 

AX.0107h 

ADD 

AX.BX 

PUSH 

SI 

CALL 

GOTOYX 

POP 

SI 

MOV 

AX.DX 

ADD 

AX.BX 

MOV 

DX.[SI  +  2] 

CALL 

SUB  DSTR  OUT 

MOV 

AUfMenu]  ~ 

MOV 

[Color]AL 

MOV 

AX,0207h 

CALL 

GOTOYX 

MOV 

BX.024Eh 

CALL 

CLEAR_WINDOW 

MOV 

ALfMenuMes] 

MOV 

[Color]AL 

MOV 

AX.DX 

CALL 

DSTR  OUT 

MOV 

AU[Normal] 

MOV 

(Color].AL 

CALL 

HIDE  CUR 

POP 

DX” 

POP 

CX 

POP 

BX 

POP 

RET 

AX 

ENDP  DISPLAY  MENU 
ENDP  GET_CH6iCE 


;zero  AX  register 
iChoiceto  AL 
'.abort  V  Choice  *  0 
;(Choice-1)  *  4  »  offset 
;number  of  shifts  to  CL 
;shift  hyice  «  ax*4 
;SI  points  to  base  of  table 
;add  offset 

;gat  2  bytes  from  tabie 
;number  of  char  to  copy 
;zero  BH 

;BX  «  position  in  merw  string 
;starting  cursor  poetion 
;add  offset  to  choice 
;save  Si  register 
iposUon  cursor 
;restore  SI  register 
;start  of  mersi  string  to  AX 
;add  offset  to  choice 
;ptr  to  messiK}4 
;higNight  choice 
;aet  menu  color 
ichange  color  attrftMJte 
;position  cursor  in  2rd  row 
;column  7  for  message  string. 
;rQW  2  and  column  78 

;clear  old  message, 
.-set  messtHje  color 
ichange  color  attribute 
ipointer  to  message  string 
-.display  message  string 
;set  normal  color 
;change  color  attrfixjte 
;hide  the  cwsor. 

;restore  refiners 


; - Instructions  for  use  of  the  menu  system  higNic^  bar. 

Input  »  None 
OtifoiX  «  None 

PROC  MENUJNSTRU 

PUSH  AX  ;8ave  registers 

PUSH  BX 
PUSH  CX 
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PUSH 

DX 

MOV 

AX.1S00h 

;row  21  .column  0 

CALL 

MENU  BOX 

'.draw  menu  box 

MOV 

AL.[Mm] 

MOV 

[Cdorl^V. 

MOV 

AX.160Ch 

;raw  22,coiumn  12 

CALL 

QOTOYX 

CAa 

CSTR  OUT 

db 

'Use  the  ’,17.205,'  or  ’.205,16,'  arrovr  keys  to  ’ 

db 

'position  the  Highlight  Bar.'.O 

MOV 

AX,1709h 

irow  23.column  12 

CALL 

QOTOYX 

CALL 

CSTR  OUT 

db 

'Press  the  <Enter>  key  or  the  first  letter  of  the ' 

db 

'word  to  proceed.',0 

MOV 

AL,  [Normal] 

MOV 

[Color],AL 

POP 

DX 

irestore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  MENUJNSTRU 

- Display  the  users  selections. 

Input  -  AX  -  none 

Output 

«  none 

AX-OX  register  saved. 

PROC  DISPLAY  STATUS 

PUSH 

AX 

PUSH 

BX 

;save  registers 

PUSH 

CX 

PUSH 

DX 

MOV 

CL,[Coior] 

;save  orfi^nal  color 

MOV 

AL.[Normal] 

MOV 

[Color],AL 

MOV 

AX.0506h 

;row/coi 

CALL 

QOTOYX 

CALL 

CSTR  OUT 

db 

'Data  He  ’.0 

XOR 

AX>NX 

;zeroto  AX 

MOV 

BX.[FleHd] 

;fle  handle 

CMP 

BX,AX 

;ls  the  He  open? 

JZ 

FLEI 

no  dear  line 

MOV 

AX.OffMt  FleNa 

;ptr  name  of  open  fie 

CALL 

DSTR  OUT 

;send  to  the  screen 

JMP 

SHOffrFLE2 

FLEI:  CALL  CSTR  OUT 

db 

'NOT  Selected'.0 

FLE2:  MOV 

AX.0534h 

CALL 

QOTOYX 
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CALL 

CSTR^OUT 

db 

"Numbw  of  ID’S  ' 

MOV 

AX,[MaxNo] 

CALL 

BIN  OUT 

MOV 

AX.0606h 

CALL 

GOTOYX 

CALL 

CSTR  OUT 

db 

‘PercendMs  are  ’, 

XOR 

MM 

MOV 

AU[Ranked] 

CMP 

AH^^L 

JZ 

FLES 

CALL 

CSTR_OUT 

db 

’comptied.  ’,0 

JMP 

SHORT  FLE7 

FLE3;  CALL  CSTR_OUT 
db  computed.’, 0 

FLE7:  CALL  ON  UNE 
JNC  FLES" 

MOV  AX.0634h 
CALL  GOTOYX 
CALL  CSTR  OUT 
db  'LPT  ’.0“ 

XOR  AX,AX 
MOV  AX.ILFn 
INC  AX 
CALL  BIN  OUT 
CALL  CSTR  OUT 
db  ’  is  NC^  Ready.’, 0 

JMP  SHORT  FLE9 
FLES:  MOV  AX,0634h 
CALL  GOTOYX 
CALL  CSTR  OUT 
db  ’LPT  ’.0 
XOR  AX,AX 
MOV  AX.ILPT] 

INC  AX 
CALL  BIN  OUT 
CALL  CSfR_OUT 
db  ’  is  Re^.  ’,0 
FLE9:  MOV  [Coiorl,CL 
POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  DISPLAY  STATUS 


:reporttype 

;row/col 


;zeroto  AX 
:reporttype 
;i8  It  not  selected? 

;ir  not  goto  next  text 
;send  string  to  screen 

;exlt  routine 
;aend  string  to  screen 

;is  printer  onjine? 
:carry  Hag  meanTNO 
:row/coi 
;set  cursor 


;send  string  to  screen 


:row/col 
;set  cursor 


;send  string  to  screen 
^restore  color  value 
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.DATA 


TKty 


db 

db 

db 

db 

db 

db 


i^li 

fSit: 


>iV;- 

i^Jti 


'.0 

'.0 

'.0 

'.0 

'.0 

'.0 

'.0 


StMda  db 
db 
db 
db 
db 
db 


db 


'.0 

',0 

■  m'.O 

I  P'.O 
P  '.0 
P  I  '.0 
I  I'.O 


.CODE 

■Display  the  programs  tWe  on  the  screen 
Input  «  None 

[color]  -  current  attribute  from  data  section 
Output  -  None 

Video  mode:  text  row  >=  25  Col  «  80 


PROC  DRAW_TITLE 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEAR^TITLE 

MOV 

AL.[W^ing] 

MOV 

(Color].AL 

MOV 

AX.0800h 

MOV 

BX.134Fh 

CALL 

CLEAR_WINDOW 

MOV 

AL.(Mmu] 

MOV 

[Color], AL 

MOV 

AX.0902h 

MOV 

BXl24Dh 

CALL 

CLEAR  WINDOW 

draw  shading 

MOV 

AL,  [Border] 

MOV 

[Color],AL 

MOV 

CX.8 

MOV 

BXOAOSh 

;save  registers 


;ciear  main  window 


;lhie  counter 
;row/col 
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MOV  AXOffset  Shade 
TIT2:  XCHG  AX.BX 
CALL  GOTOYX 
XCHG  AX.BX 
CALL  DSTR  OUT 
MOV  AX.SI” 

INC  AX 
INC  BH 
LOOP  1112 
draw  tide 

MOV  ALINonnal] 

MOV  [Color]^ 

MOV  CX7  ;llne  couraer 

MOV  BX.0A04h  ;row/col 

MOV  AX.Off8et  TKey 
TITI:  XCHG  AX.BX 
CALL  GOTOYX 
XCHG  AX.BX 
CALL  TITLE  OUT 
MOV  AX.Sr 
INC  AX 
INC  BH 


LOOP 

nri 

Trra:  pop 

DX 

POP 

cx 

POP 

BX 

POP 

AX 

RET 

ENDP  DRAW_TITLE 

; - Clear  the  main  display  window  in  the  EdItKey  view  program. 

Input  - 

None 

Output 

>  None 

16  colors  row  -  25  Col  *  80 

PROC  CLEAR  TITLE 

PUSH 

AX 

;save  refers 

PUSH 

BX 

PUSH 

CX 

MOV 

CU[Color] 

isave  ortg.  color  attri 

MOV 

AL,  [Normal] 

;get  backj^ound  color 

MOV 

[Coior]^ 

;assH^  backgd  color 

MOV 

AX,0400h 

;row  4  /column  0 

MOV 

BXl44Fh 

;row  20  /column  79 

CALL 

CLEAR  WINDOW 

;clear  display  window 

MOV 

(Colorfa 

;restore  ortg.  color  att 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  CLEAR_TrrLE 


t 
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- Sand  an  ASCtIZ  string  to  screen  arid  skip  ^  <spKe>  but  advance 

ttie  ctasor  for  each  space. 

inpia  «  AX  must  point  to  the  string.  The  string  must  end  with 
a  hex  zero.  The  desked  color  attribute  must  be  defined 
In  the  data  segment 

Outpifi  >  None.  AR  reiser  are  saved  exc^  SI. 


PROC  TITLE  OUT 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

SI.AX 

ipointer  to  string. 

MOV 

BH.0 

;pege  0  asummed 

MOV 

CX.1 

;from  data  segment 

MOV 

BU[Color] 

;ioad  color  attribute 

TITL1:  MOV 

AL.(SI1 

;get  char  from  string 

CMP 

AUO 

;is  It  die  end  ? 

JZ 

TITL2 

;exit  If  end  of  string. 

CMP 

AL.20h 

:is  it  a  space  ? 

JNZ 

TrrL3 

;if  space  skip  ? 

CALL 

INC  CURSOR 

JMP 

shc5rt  TrrL4 

TiTLS:  MOV 

AL.20h 

n^ea  space 

MOV 

DUAL 

istore  char  In  DL 

MOV 

AX,0920h 

;wrke  1  space  to 

PUSH 

SI 

;save  SI  reciter 

INT 

lOh 

;s^  color  attrfixjte 

MOV 

AH,OEh 

;fun.no.  teletype  mode 

MOV 

AUDL 

;get  char  for  DL  reg. 

INT 

lOh 

;char  to  the  console 

POP 

SI 

;restore  SI  register 

■nTL4:  INC 

SI 

;point  to  next  char 

JMP 

SHORT  TITLI 

;get  next  character. 

TrrL2:  POP 

DX 

POP 

CX 

;restore  registers. 

POP 

BX 

POP 

AX 

RET 

ENDP  Tm£_OUT 


.CX)DE 

— Set  the  colors  variables  for  the  video  mode. 

input:  ES  is  a  ptr  to  the  (PSP)  Program  Segment  Prefix 
(when  DOS  programs  are  loaded  the  ES  register  points  to  PSP) 
Output:  None 
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VID2:  XOR 

AX.AX 

MOV 

AH.0Fh 

;get  display  mode 

INT 

lOh 

;BIOS  function. 

CMP 

AL.7 

;i8  it  Te>d*Mono  ? 

JNZ 

VID3 

;No  -  jmp  next  test 

CALL 

MONO  VIDEO 

;set  color  variables 

JMP 

short" VID5 

:«dt 

VID3:  CMP 

AL.0Fh 

:is  K  Graph-Mono? 

JNZ 

VID4 

:No  «  )mp  next  test 

CALL 

MONO  VIDEO 

;set  color  variables 

JMP 

short" VID5 

;e)dt 

VID4;  CAa 
VID5;  RET 

COLOR  VIDEO 

;set  color  variables 

PROC  COLOR  VIDEO 

MOV 

BX,Offset  Menu 

MOV 

AL.71h 

:Menu»Blue/Lt  Whtte 

MOV 

[BX1.AL 

INC 

BX 

MOV 

AL.lFh 

iNormtri  s  White/Blue 

MOV 

[BX1.AL 

INC 

BX 

MOV 

AUlEh 

;HiUte>Yeilow/Biue 

MOV 

[BX1.AL 

INC 

BX 

MOV 

AL,7Fh 

;MenuMos»Whlte/Lt  White 

MOV 

IBXJ^ 

INC 

BX 

MOV 

AL.4Fh 

;Wamlng  »  WhIte/Red 

MOV 

[BXJ^ 

INC 

BX 

MOV 

AUOTOh 

;Border-  BiMfc/WhIte 

MOV 

RET 

IBX]^ 

ENDP  COLOR  VIDEO 
PROC  MONOjVIDEO 

MOV  BXOffset  Menu 
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MOV  AL.7Dh 
MOV  (BX]>L 
INC  BX 
MOV  AL.0Fh 
MOV  {BX)>KL 
INC  BX 
MOV  AL.0Fh 
MOV  [BX]>M. 
INC  BX 
MOV  AL.70h 
MOV  [BX]>U. 
INC  BX 
MOV  AUORi 
MOV  [BXl^V. 
INC  BX 
MOV  AUTFh 
MOV  [BX1,AL 
RET 

ENDP  MONO  VIDEO 

ENOP  COLOff  MODE 


Menu  -  Black/Whto 
Norn«l*  White/Biack 
HUM-  Whto/Black 
ManuMas*  Black/WNia 
warning-  Whfea/Biack 
Bordar-  WhitaAlWhiia 


Sava  tha  current  usars  video  information  to  be  restored  by  RESTORE_VIDEO 
set  text  video  nnode  for  this  program. 


Input  -  None 

oiaput  «  set  variablas:  (vidmode],[vidpegel.[vidcurs].[vidfort] 
[vidattr]  and  [vidbord] 

Note:  has  no  effect  if  the  dos  version  is  less  than  3.30. 

PROC  TEXTVIDEO 
; - test  for  DOS  3.3  or  greater 


MOV 

AH.30h 

;gat  doe  ver  nunfoar 

INT 

21h 

XCHQ 

AH,AL 

;high  byte  to  ah 

CMP 

AX.03lEh 

;is  dos  >  -  3.30  ? 

JNC 

SVO 

;if  yes  continue  else 

JMP 

SV5 

;e)A  assume  text  mode 

; - get  video  mode 

SVO:  MOV 

AH,0Fh 

;get  video  mode 

INT 

lOh 

MOV 

[vidrTKxto].AL 

;save  vidaomode 

MOV 

[vidpagel.BH 

:save  vidaopega 

; - get  cursor  Information 

MOV 

AH.03h 

;get  cwsor  status 

INT 

lOh 

MOV 

(vidcursl.CX 

;save  cursor  shape 

: — get  font  size 

MOV 

AX.1130h 

;gat  font  Information 

XOR 

BH.BH 

;0  -  current  font 

INT 

lOh 

MOV 

AX.1112h 

;assume  smaH  font 

CMP 

CX.8 

;is  it  8x8  font  ? 
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JZ 

SV1 

;I  yes  save  font 

MOV 

AX.1114h 

CMP 

CX.16 

;is  It  8x16  font  ? 

JZ 

SV1 

.if  yes  save  font 

MOV 

AX.1111h 

;aaaume  8x14  font 

SV1:  MOV 

[vidfont].AX 

;aave  current  font 

get  current  color  attrtoutes 

MOV 

AH.06h 

;road  char  and  attrl 

MOV 

BH.{vldpagel 

:gat  currant  video  page 

IMT 

lOh 

MOV 

f.r'attrJ.AH 

.‘save  color  attribute 

MOV 

CL.4 

;countar 

SHR 

AH.a 

:high  nfoble  to  low 

MOV 

[vidbordl.AH 

:aave  background  color 

; — is  this  a  VGA  system  ? 

MOV 

AX.1A00h 

‘.read  video  conflg. 

INT 

lOh 

CMP 

AL.lAh 

:is  it  an  VGA  ? 

JNZ 

SV2 

;tf  no  then  exit 

MOV 

AX,100eh 

:V  yes  get  border  color 

IMT 

lOh 

MOV 

[vidbord].BH 

;save  border  color 

; - set  font  type 

MOV 

AX.1114h 

:8xi6  character  set 

XOR 

BL.BL 

INT 

lOh 

; - set  text  video  mode 

SV2:  MOV 

AX.0003 

;default  video  text  mode 

MOV 

BL,[vidmode] 

;get  current  mode 

CMP 

BUT 

;i8  It  mono  text  ? 

JZ 

SV5 

;ir  yes  no  change 

INT 

lOh 

;aet  color  text  mode 

SV5:  MOV 

AU[Normal] 

MOV 

(Colorl>U. 

CAa 

CLEAR  SCREEN 

ac 

;cieer  carry  flag 

RET 

ENDP  TEXT_VIDEO 


;  Restore  the  users  video  Wormation  which  was  save  by  SAVE_VIDEO 
;  when  the  program  began. 

Input  -  None 

Output  «  Oears  the  screen 

Noter  uses  variables:  [vidmode],[vidpogel,[vidcur8].{vldfont] 
[vidattr]  and  [vidbo^] 

PROG  RESTORE  VIDEO 
PUSH  ES  " 

; — test  for  DOS  3.3  or  greater 

MOV  AH.30h  :get  doe  ver  number 


G-74 


INT  21h 

XCHQ  AH.AL  :hlgh  byte  to  ah 

CMP  AX,03lEh  :l8  dos  >  -  3.30  ? 

JC  REV2  ;dalaull  to  w/b 

: - raaioro  original  video  mode 

MOV  AL,[vidmode]  :get  video  mode  no. 

XOR  AH^ 

INT  lOh 

; - return  diapiay  page  to  0 

MOV  AX.0500h 
INT  lOh 

; - reetore  original  font  size 

MOV  AX.[vidfont] 

XOR  BL.BL 
INT  lOh 

; - reed  cursor  configuration 


MOV 

AH.03h 

XOR 

BH,BH 

INT 

lOh 

; - restore 

original  video  page 

MOV 

AL,[vidpagei 

MOV 

AH.5h 

INT 

lOh 

; - restore 

dtfsor  shape 

MOV 

CX,[vidcurs] 

MOV 

AH,01h 

INT 

lOh 

; - set  border  color 

MOV 

AX.1001h 

MOV 

BH,[vidbord] 

INT 

lOh 

; - dear  the  screen  If  dos  3.3  or  greater 

MOV 

AX.0600h 

:scroa  &  dear  window 

MOV 

BH.(vidattr] 

;get  color  attrttxjte 

XOR 

CX.CX 

{Start  row  0.  col  0 

MOV 

0X,40h 

;bios  data  area 

MOV 

ES.DX 

:ptr  to  data  area 

MOV 

DX.(ES;4Ah] 

:get  number  of  columns 

DEC 

DX 

'.convert  to  0  start 

MOV 

DH.[ES:84h] 

;get  number  of  rows 

INT 

lOh 

{dear  whole  screen 

JMP 

SHORT  REVS 

; - deer  screen  if  not  dos  3.3  or  greater 

REV2:  MOV  AL.[Vidattrl 

{system  color  W/B 

MOV 

[Color)>KL 

{set  color 

CALL 

CLEAR  SCREEN 

{biat^  the  screen 

REV3:  aC 

{dear  carry  flag 

POP 

ES 

RET 

ENDP  RESTORE_VlDEO 
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F 


; —  Open  a  Disk  Fie  using  the  fie  HancMe  method. 
Input  «  AX  -  ptr  ASQIZ  name  of  the  fie. 

shared/read/write  access  assumed. 
Output  -  Carry  flag  set  I  an  opening  error  or 
fie  size  ki  AX  and  DX;  ^  Handel  In  BX. 
Is  set  to  beginning  of  the  Me. 

Note:  Registers  are  not  saved. 

PROC  OPEN 


MOV 

DXM 

;plr  to  fie  name  string 

MOV 

AH.3Dh 

;open  fie  vdth  hande 

MOV 

AL.42h 

;share/raad/«vrite  mode 

INT 

21h 

;try  to  open  fie. 

JC 

OP1 

;carry  -  opening  error 

MOV 

BX^ 

,-fle  handle  In  BX 

XOR 

AXM 

;zero  AX 

MOV 

CX.AX 

;otf  set  from  EOF 

MOV 

DX,AX 

OInCXANDDX. 

MOV 

AX.4202h 

iposltion  at  EOF 

INT 

21  h 

;slze  of  fie  in 

PUSH 

AX 

ibytes  returns  In 

PUSH 

DX 

;AXandOX 

XOR 

AX.AX 

;zero  AX 

MOV 

CX.AX 

;off  set  from  BOF 

MOV 

DX.AX 

;*  0  in  CX  AND  UX. 

MOV 

AX,4200h 

;positk>n  fie  pointer 

INT 

21  h 

;fle  ptr  to  BOF 

POP 

DX 

;size  of  fie  returns 

POP 

AX 

;in  AX  and  OX  rags. 

CLC 

;clear  cany  flag 

JMP 

SHORT  OP4 

;retum  to  calling  prg. 

CMP 

AX.OCh 

;i$  access  code  wrong? 

JNZ 

OP2 

;if  not  skip. 

XOR 

AX,AX 

:zero  AX  if  wrong  code 

CMP 

AX.6 

;is  error  code  >  5  ? 

JC 

OP3 

;ir  not  skip. 

MOV 

AX.6 

;end  of  error  table 

MOV 

[Encode], AL 

'.save  error  code 

SHL 

AX.1 

;multi  err  code  by  2 

MOV 

BX.Offset  OpenErr 

;open  error  table  base 

ADD 

BX.AX 

;add  err.  offset  to  base 

CALL 

CLEAR_MESSAQE 

MOV 

CH.(Wamkig] 

.-warrAig  color 

MOV 

CL,(Color] 

;save  original  color 

MOV 

[Color], CH 

;set  color 

MOV 

AX,0207h 

;row  3/Col  8 

CALL 

GOTOYX 

;8et  cursor 

CALL 

CSTR_OUT 

;output  this  line  to 

db 

’  Error!~openlng  '.0 

;the  screen. 

MOV 

AX.DX 

;Fle  name  pointer. 

CALL 

DSTR  OUT 

;output  fie  name. 

MOV 

AX.[B^ 

;ptr  msg  strkig  to  AX 

CALL 

DSTR  OUT 

;display  type  of  error 

MOV 

(Color], CL 

;restore  original  color 

CALL 

HIDE  CUR 

CAa 

ERR  SOUND 

CALL 

get"char 

;to  stop  program 

STC 

;aet  carry  flag 

0P4:  RET 
ENDP  OPEN 


.DATA 

OpwiErr  dw  Offset  OpEl, Offset  0pE2, Offset  OpE3 

dw  Offset  0pE4, Offset  0pE5, Offset  OpE6,Offset  0pE7 

OpEI  db  Invalid  access  code.  ',0 

OpE2  db  Invalid  function.  *,0 

OpE3  db  Fie  not  found.  ',0 

OpE4  db  Path  not  found.  *,0 

OpE5  db  No  handles  avalable.  '.0 

OpE6  db  Access  denied.  '.0 

OpE7  db  Enor  code  beyond  table.  ‘,0 

.CODE 


■Send  a  ASCII  String  of  a  given  lertgth  in  the  Data  Seg.  to  the  console. 
Input  >  AX  must  points  to  the  first  character  to  seixf  in  the  string. 

CL  >  number  of  bytes  to  send 
Output  a  None.  AX-DX  registers  saved. 


PROC  SUB_DSTR_OUT 


PUSH 

AX" 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

SI.AX 

MOV 

DL.CL 

MOV 

BH.0 

MOV 

BL.[Coior] 

MOV 

CX.1 

DSTR3:  MOV  AL.[SI] 

CMP 

AL.0 

JZ 

DSTR4 

MOV 

DH>U. 

MOV 

AX.0g20h 

PUSH 

SI 

INT 

lOh 

MOV 

AH,0Eh 

MOV 

AL.DH 

INT 

lOh 

POP 

SI 

INC 

SI 

DEC 

DL 

JNZ 

SHORT  DSTR3 

DSTR4;  POP  DX 

POP 

CX 

;save  registers 


;poirtfer  to  string. 

;DL  -  number  of  chars 
;p8ge  0  asummed 
;load  color  attribute 
ifrom  data  se^nent 
;get  char  from  strtoig 
;ts  it  die  end  ? 

;exit  I  end  of  string, 
istore  char  in  DH 
;wrlte  1  space  to 
;save  Si  rec^ster 
;set  color  attribute 
.-furtno.  teletype  mode 
;get  char  for  DH  reg. 
;char  to  the  console 
;restore  Di  register 
;point  to  next  char 
;charBCter  counter 

:get  next  character. 

^restore  registers. 
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POP  BX 
POP  AX 
RET 

ENDP  SUB  DSTR  OUT 


- Position  the  cursor  on  the  screen 

Input  -  AH  (row)  AL  (column)  position  in  binary  numbers. 
Output  -  none.  All  registers  restored. 

Notes:  upper  left  hand  comor  -  0.0 


page  0. 25  rows  and  80  cotianns  acrean  assumed. 
Calling  with  OH  >  25  wM  hide  the  cursor  off  screenll! 


PROC  GOTOYX 

PUSH  AX 

;save  registers 

PUSH  BX 

PUSH  CX 

PUSH  OX 

MOV  OX.AX 

CMP  OH, 26 

;is  row  >  25  ? 

JC  @@LOCl 

yes  default  to  0 

MOV  OH,0 

;set  row  to  top  line 

@@LOCl:  CMP  OL.80 

:is  column  >  79  ? 

X  ®@LOC2 

;if  yes  defuait  to  0 

MOV  OL.O 

;column  to  far  right 

@@LOC2:  MOV  AH.02h 

;aet  cursor  funct. 

MOV  BH,0 

:page  0  assumed 

INT  lOh 

;position  cursor 

POP  OX 

;re8tora  registers 

POP  CX 

POP  BX 

POP  AX 

RET 


; - Advance  cursor  one  column  on  the  screen 

Input  -  none 

Output  -  none.  All  registers  restored. 

page  0, 25  rows  and  80  columns  screen  asstaned. 
PROC  INC_CURSOR 

PUSH  AX  ;save  registers 

PUSH  BX 

PUSH  CX 

PUSH  OX 

MOV  AX.0300h 

MOV  BH.AL 

INT  lOh 

CMP  OU79 

JZ  INC1 

INC  OL 

JMP  SHORT  INC2 
INC1:  INC  OH 
INC2:  MOV  AX.0200h 
INT  lOh 
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;rMtore  registers 


POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  INC  CURSOR 


; - Hide  cursor  at  row  25,  coturrwi  0  below  the  last  Nrte  of  the  screen 

Input  «  None 
Output  -  None 
Cato  60T0YX 

Notes;  Page  0  and  25  line  text  screen  assumed. 

PROC  HIDE  CUR 

MOV  '  AX.1900h 
CAa  QOTOYX 
RET 

ENDP  HIDE  CUR 
ENDP  GOTOYX 

; - Serxl  an  ASCII  string  in  the  Data  Segment  to  the  console. 

Input  -  AX  must  point  to  the  string.  The  strirtg  must  end  with 
a  hex  zero.  The  desired  color  attrttxjte  nxist  be  defined 
in  the  data  segment. 

Output  »  None.  All  rej^er  are  saved  except  Si. 


PROC  DSTR  OUT 

PUSH 

AX 

;save  reftoters 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

SI.AX 

;poiraer  to  string. 

MOV 

BH,0 

;page  0  asummed 

MOV 

AX.@DATA 

PUSH 

DS 

MOV 

DS.AX 

MOV 

BU[Color] 

;ioad  color  attribute 

POP 

DS 

MOV 

CX.1 

Irom  data  segmertt. 

DSTR1;  MOV  AL,[SI] 

:get  diar  from  strii 

CMP 

AUO 

;ls  It  the  end  ? 

JZ 

DSTR2 

;exit  V  end  of  string. 

MOV 

OLM 

;store  char  in  DL 

MOV 

AX.0g20h 

;wrlte  1  spMeto 

PUSH 

SI 

;save  SI  refltoter 

INT 

lOh 

;set  color  attdbute 

MOV 

AH,OEh 

;funna  teletype  mo 

MOV 

AL.DL 

;get  char  for  DL  reg. 

INT 

lOh 

;char  to  the  console 

POP 

SI 

{restore  SI  ref^er 

:raw-2S  coi  -  0 
;piace  cursor 
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I^C  SI  ;point  to  next  char 

JyIP  SHORT  DSTR1  ;get  next  cherecter. 

DSTR2:  POP  DX 

POP  CX  ;reetore  regieters. 

POP  BX 
POP  AX 
RET 

ENDP  DSTR  OUT 


- Send  e  two  t)yte  uneigned  binery  number  to  the  ecreen  In  dedmol  form. 

Input  >  binary  number  In  AX 

Output  «  decimal  number  to  the  ecreen.  Regieters  reetored  on  return. 
Note:  thie  recursive  procedure  could  use  up  to  40  bytes  of  stack  space. 


leading  zeros  are  surpreased  and  no  apace  paddkrg  is  used. 
KN_OUT  and  DiQIT_OUT  must  be  NEAR  procedures. 


PROC  BIN  OUT  NEAR 

PUSH 

AX 

;aave  dividend 

PUSH 

BX 

PUSH 

CX 

:save  CX  register 

PUSH 

DX 

:save  remainder 

SUB 

DX.DX 

;zero  DX  register 

MOV 

CX.0Ah 

:divisorislO 

DIV 

CX 

;AX/10;  answer  in  AX 

CMP 

AX,0 

;remainder  digit  In  DL 

JZ 

@@BiN 

;ir  yes  stop  recursion 

CALL 

BIN  OUT 

;oontine  recursive  call 

@@6IN:  CALL  DIGIT  OUT 

;dispiay  digit  In  D 

POP 

DX 

;previous  digit  to  DL 

POP 

CX 

;restore  CX  register 

POP 

BX 

POP 

AX 

^restore  AX  register 

RET 

;NOTE:  this  RET  wB  poM  to  @@6IN:  to  display 

;each  digit  of  the  recursions  stored  in  DL  register. 

;Afler  al  digits  are  displayed  it  wR  return  to 

,1he  caling  program. 

; - Send  a  digjt  (0  to  9)  stored  in  DL  register  to  the  screen 

PRCC  DIGIT  OUT  NEAR 

MOV 

BH.0 

;pegeO  Mummed 

MOV 

BL.[Color] 

;load  odor  attribute 

MOV 

CX.1 

;from  data  segment 

MOV 

AX,0920h 

^wrlte  1  space  to 

INT 

lOh 

;set  color  attribute 

MOV 

AH.0Eh 

;fun.na  teletype  mode 

MOV 

AL.DL 

;get  char  for  DL  rag. 

OR 

AUaOh 

;convert  to  ASCII  digit 

INT 

lOh 

;char  to  the  console 

RET 

ENDP  DIGIT  OUT 
ENOPBIN_dUT 

I 

; — Get  a  Char  from  the  Iwyboerd.  (keyboard  buftar  not  cfrared  before  input) 
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Input  -  non# 

(>jtpu  -  binary  ASai  kayboard  code  in  AL 
Cw^  iao  *  •Mtanded  code. 

•Ktanded  oodaa  are  conveitad  to  control  keys  by  EXT  CHAR 
PRCXJ  QBT^TEXT 

QET1:  I/KJv  AX.0700h  :input  function  number 


INT  21h 

.-wait  for  cherector 

CLC 

;cieor  carry  lag 

CMP  AL.0 

;is  the  Char  extended? 

JNZ  ®®TEXT 

;lf  not  extended  return 

MOV  AH.07h 

;unlltar  char  Input 

ifn*  21h 

;to  get  extended  char. 

CALL  EXT  CHAR 

:convart  extended  codes 

JC  QET1 

;cf  -  not  on  the  list 

STC 

;set  carry  lag 

®@TEXT:  MOV  AH.0 

;zero  AH  register. 

RET 

;end  of  subroutine 

ENOPQET_TEXT 

; — Qet  a  Char  from  the  Standard  Input  device,  (keyboard  assumed) 

Input  -  none 

Output  -  binary  ASCII  keyboard  code  in  AX 

Car^  flag  -  eKterKfed  co^. 

PROCQET  CHAR 

QETO:  MOV  AX.0C07h 

;ciecu’ keyboard  buffer 

INT  21h 

;and  wait  for  char. 

ac 

;ciear  carry  lag 

CMP  AL,0 

;ls  the  ciiar  extended? 

JNZ  @@CHAR 

:lf  not  extended  return 

MOV  AH.07h 

;urllter  char  input 

INT  21h 

;to  get  extended  char. 

CALL  EXT  CHAR 

:convert  extended  codes 

X  QETO 

;cf  -  not  on  the  list 

STC 

;set  carry  lag 

@@CHAR:  MOV  AH.0 

;zero  AH  register. 

RET 

:!<>nd  of  subroutine 

t 

A  subroutine  to  convert  extended  codes  to  control  codes. 

input  «  extended  code  In  AL 

Output  »  converted  code  in  AL 

Cwry  lag  If  not  one  of  the  Keys  listed  below: 

Key  Extended  Code  Converted  to:  CtrLChar  Ctif-Value 

Home  47h 

'^A  1h 

UpArr  48h 

^  5h 

PgUp  49h 

12h 

LtArr  4Bh 

13h 

RtArr  4Dh 

'V  4h 

End  4Ph 

'T  6h 

DnArr  SOh 

^  18h 

PgDn  51h 

X  3h 

Ins  82h 

'W  16h 
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7h 


;  M  53h 
PROC  EXT^CHAR 


CMP 

AL.47h 

JNZ 

EXTO 

MOV 

A-.1 

JMP 

SHORT  EXT10 

EXrO:  CMP  AL.48h 

JNZ  EXT1 

MOV  AL.5 

JMP  SHORT  EXT10 

EXT1:  CMP  AL.48h 

JNZ  EXT2 

MOV  AL.12h 

JMP  SHORT  EXT10 

EXr2:  CMP  AL,46h 

JNZ  EXT3 

MOV  AL.13h 

JMP  SHORT  EXT10 

EXrS:  CMP  AL.4Dh 

JNZ  EXT4 

MOV  AL.4 

JMP  SHORT  EXT10 

EXT4:  CMP  AL.4Fh 

JNZ  EXT5 

MOV  AL.6 

JMP  SHORT  EXT10 

EXTS:  CMP  AL.SOh 

JNZ  Exre 

MOV  AL.18h 

JMP  SHORT  EXT10 

EXT6:  CMP  AL,51h 

JNZ  EXT7 

MOV  AL.3 

JMP  SHORT  EXriO 

EXH:  CMP  AL.52h 

JNZ  EXTS 

MOV  AL.16h 

JMP  SHORT  EXT10 

EXTS:  CMP  AU53h 

JNZ  EXTS 

MOV  AL.7 

JMP  SHORT  EXriO 

EXTS:  STC  ;8et  carry  flag 

JMP  SHORT  EXT11 

EXT10:  CLC  ;ciear  carry  flag 

EXT11:  RET 
ENDP  EXT_CHAR 


ENDP  GET_CHAR 

; - Sand  an  ASCII  string  In  the  Code  segment  to  the  console. 
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Tht  cal  must  bt  right  tMfora  th9  string  The  string  mutt  arvl  \Mtth 
a  hsK  nra  This  procedure  must  be  caled  as  a  near  procedure. 
The  dashed  [color)  attribute  must  be  stored  in  the  Data  segmert. 
Note:  Al  ragiaters  save  except  SI. 

PROC  CSTR_CX/T  NEAR 


POP  SI 

PUSH  AX 

;save  redttars 

PUSH  BX 

PUSH  CX 

PUSH  DX 

MOV  BH,0 

:page  0  asummed 

MOV  BL.(Color] 

:load  color  attribute 

MOV  CX.1 

:from  data  segrtwn 

CSTR1.  MOV  AL.[CS.SI] 

:gat  char  from  code  sag 

CMP  AUO 

JZ  CSTR2 

;0  -  erxl  d  string 

MOV  DUAL 

;store  char  hi  DL 

MOV  AX.0g20h 

nwite  1  space  to 

PUSH  SI 

:saveSI  register 

INT  lOh 

;set  cdor  attribute 

MOV  AH.0Eh 

;func.no.tsletype  mode 

MOV  AUDL 

;get  char  for  DL 

INT  lOh 

;char  tt>  the  console 

POP  SI 

;restore  SI  register. 

INC  SI 

:point  to  nsod  char 

JMP  SHORT  CSTR1 

;get  next  character. 

CSTR2:  INC  SI 

;SI  points  to  next 

POP  DX 

.-Instruction  hi  code. 

POP  CX 

;re8tore  registers. 

POP  BX 

POP  AX 

PUSH  SI 

istore  the  CS  pointer. 

RET 

;restore  CS  redder. 

ENDP  CSTR_^OUT 

t 

: - Cteera  Whxiow 

Input  »  AX  -  upperieft  comer  row/cd  row  0-24 

BX  -  lower  right  comer  row/cd  cd  0  -  79 

[cdor]  current  attribute  frm  data  section 

page  0  assumed. 

Output  «  abort  I  row  or  cdumn  are  out  d  bounds. 

PROC  CLEAR  WINDOW 

PUSH  "ax 

;save  registers 

PUSH  BX 

PUSH  CX 

PUSH  DX 

CMP  BH^ 

;is  starting  row>erKfing? 

X  WIN1 

;s9dttf  yes. 

CMP  BUU. 

;is  stwting  cd>ending? 

X  WIN1 

;exK  lyes. 

CMP  BH.2S 

;is  row  out  d  bounds? 

JNC  WIN1 

:exlt  lyes. 
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CMP 

BL.80 

:1s  col  out  of  bounds? 

JNC 

WIN1 

;sBdl  tyss. 

MOV 

CX.AX 

;starting  roie/col  to  CX 

MOV 

OXBX 

;anding  rour/col  to  DX 

MOV 

AX.0e00h 

;¥tfirKk)«M  function  no 

MOV 

BH.(Coior] 

;get  active  color 

INT 

lOh 

;cletf  the  windOMv 

WIN1:  POP 

DX 

:  restore  registars 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  CLEAR^WINOOW 

1 

; - DrsMT  a  17  ikw  80  column  display  bOK  for  the  Ratfauant  prognvn. 

It  can  also  b«  used  to  dear  the  display  scrasn  and  tMa  scraaa 

Input . 

>  None 

Output 

-  None 

Calls  CSTR  OUT  procedure 

PROC  DISPLAY  BOX 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

AL,  [Border] 

;change  color  attribute 

MOV 

(Color]>U. 

:for  scran  outpuL 

MOV 

AX.(M00h 

:row  4,  column  0 

CALL 

GOTOYX 

;set  cursor  position 

CALL 

CSTR  OUT 

;dra¥v  box 

db 

201,  78"DUP  (205).187 

db 

186,  78  DUP  C  ’).186 

db 

186,  78  DUP  f  ’),186 

db 

186,  78  DUP  C  l.IBB 

db 

186,  78  DUP  C  ').186 

db 

186,  78  DUP  f  '),186 

db 

186,  78  DUP  C  ‘).186 

db 

186,  78  DUP  C  ’).186 

db 

186,  78  DUP  C  ’).186 

db 

186,  78  DUP  C  ’).186 

db 

186,  78  DUP  C  ').186 

db 

186,  78  DUP  f  l.W 

db 

186,  78  DUP  C  ').1B6 

db 

186,  78  DUP  C  ').1B6 

db 

186,  78  DUP  C  ').186 

db 

186,  78  DUP  C  ’).186 

db 

200,  78  DUP  (205).188.0 

MOV 

AL.INormd] 

MOV 

[Color],AL 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 
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RET 

ENOP  DiSPLAY_BOX 


;  Display  an  error  massage  on  th- 

xrsen  in  roe/  5  column  3,  Normal  colors 

InpU 

«  AX  pointer  to  ASCilZ  string  in  Data  segment 

Output 

-  Carry  Rag  set 

Note: 

sends  message  to  screen  and  vMsit  for  toy  to  be  praaaed. 

PROC  ERROR  MESSAGE 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

CL.[Color] 

;save  assigned  coiof 

MOV 

AL.[Nomto] 

:eat  color  to  normal 

MOV 

[Coior]^ 

:for  string  output 

MOV 

AX.0403h 

;point  row  4.  col  3 

CALL 

GOTOYX 

iposition  cursor 

MOV 

AX.BX 

;ioad  string  pointer 

CALL 

DSTR  OUT 

;dispiay  error  message 

MOV 

[Coior].CL 

;restora  assigned  color 

CALL 

HIDE  CUR 

;hide  the  cursor 

CALL 

qetJchar 

;vwBit  until  toy  pressed 

STC 

icarry  flag  *  error 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  ERROR.MESSAGE 

» 

Play  a  series  of  notes  using  the  8253  timer  chip  to  produce  sound. 

Input  AX  -  pointer  to  16  bit  data  string  cont^nbig 

t 

frequency  and  duration  for  each  pitch. 

1 

data  stririg  must  erxf  with  a  Hex  0 

Output  None 

PROC  SOUND 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

BP 

MOV 

Sl^ 

:place  data  ptr  in  SI 

IN 

AL.61h 

;giN  status  p^  B 

OR 

AU3 

;enable  speaker  and 

OUT 

61  h^ 

;timer  channel  2. 

MOV 

AL.0B6h 

;inltlailze  channel  2 

OUT 

43h>U. 

;for  modes 

SOU1:  MOV  DX.(SI] 

:ioad  freouencv 

CMP 

DX.0 

:is  It  ttie  end  of  s^ 

JZ 

SOU3 

:VyesexReiee 
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INC 

SI 

;advance  ptr  to 

INC 

SI 

;point  to  the  durtfon 

MOV 

AUDL 

;loiie  lab  of  frequency 

OUT 

42h^ 

:aend  to  Iatch2  port 

MOV 

AL.DH 

;loMr  msb  of  frequency 

OUT 

42h^ 

;aend  to  Iatch2  port 

MOV 

AH.0 

;ini  function  number 

INT 

lAh 

;got  BIOS  timer  count 

MOV 

BX.DX 

;mowe  leieotd  to  BX 

ADD 

BX.ISI1 

:add  duration  to  BX 

INC 

SI 

;advance  ptr  to 

INC 

SI 

’.point  to  next  frequency. 

SOU2:  INT 

lAh 

‘.get  BIOS  timer  count 

CMP 

DX.BX 

;i8  count  >  duration? 

JC 

SOU2 

:l  not  check  again  else 

JMP 

SHORT  SOU1 

;)ump  to  get  next  freq. 

SOU3:  IN 

AL,61h 

:g8t  byte  from  port  B 

AND 

AL.0FCh 

;tum  off  speaker  bits 

OUT 

61h>U. 

:repiace  b)^  in  port  B 

MOV 

DX.1282 

;defauit  setting 

MOV 

AL,DL 

;get  isb  of  count 

OUT 

42h,AL 

;send  to  port  42h 

MOV 

AL.OH 

;gst  msb  of  count 

OUT 

42h.AL 

‘.send  to  port  42h 

POP 

BP 

POP 

DX 

:restore  reefers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  SOUND 


Force  the  numlock  key  ON  by  turning  on  bit  5  the  BIOS  data  area 
PROC  NUM_LOCK_ON 


PUSH 

AX 

PUSH 

DS 

XOR 

AX.AX 

MOV 

DSM 

MOV 

AL,20h 

MOV 

Si.417h 

OR 

ISI1.AL 

POP 

DS 

POP 

AX 

RET 

ENDP  NUM^LOCK^ON 


; - Clear  Display  Message. 

Input  •  Notie 
Output  -  None 

PROC  CLEAR_MESSAGE 
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PUSH 

AX 

isave  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AL[Menu] 

:Menu  color 

MOV 

[Coior]^ 

;set  color 

MOV 

AX.0206h 

;row  3;  coi  8 

CALL 

QOTOYX 

:poslUon  cursor 

CALL 

CSTR  OUT 

db 

73  DUP(20h).0 

MOV 

AL,  [Normal] 

;normai  color 

MOV 

[Color]>VL 

;sat  color 

CALL 

HIDE  CUR 

POP 

DX 

;rMiOfv  rogMKBrs 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  CLEAR^MESSAQE 


; —  Create  a  Disk  Pie  using  the  fie  Handle  method. 

Input  -  AX  -  ptr  ASCliZ  name  of  the  He. 

sharad/raed/vMtte  access. 

Output  «  Carry  flag  set  tf  a  creating  error  or 

Fie  Handel  in  BX  and  a  fie  of  0  bytes  is  open 

;  ****  Caution:  This  procedure  wi  erase  and  existing  fie. 
I  the  two  nee  have  the  same  name. 

PROC  CREATE 


MOV 

OX^ 

;ptr  to  ne  name  string 

MOV 

AH.3Ch 

;create  ne  with  handte 

XOR 

CX.CX 

;normal  attrixjtes 

INT 

21h 

;try  to  open  ne. 

X 

CTl 

;carry  -  opening  error 

MOV 

BX^ 

;fle  handle  in  BX 

CLC 

;clear  carry  fli^2 

JMP 

SHORT  CT4 

;ietum  to  caWng  prg. 

CTl:  CMP 

AX.0Ch 

;is  access  code  wrong? 

JNZ 

CT2 

;lnotsidp. 

XOR 

MJX 

;zero  AX  I  wrong  code 

CT2:  CMP 

AX.6 

;is  error  code  >  5  ? 

X 

CT3 

;ff  not  skip. 

MOV 

AX.6 

;erKl  of  error  table 

CT3:  MOV 

(ErTCode].AL 

;save  error  code 

SHL 

AX.1 

;multi  en-  code  by  2 

MOV 

B)LOIfset  OpenErr 

;open  error  table  base 

ADO 

BX.AX 

;add  err.  offset  to  base 

MOV 

AX.0107h 

:row  2.  column  8 

CALL 

GOTOYX 

:posl^  cursor 
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MOV 

CL.[Color] 

MOV 

AUlWamlngJ 

MOV 

(Colorl,AL 

CALL 

CSTR_OUT 

db 

’  Errorl'creating 

MOV 

AXOX 

CALL 

DSTR  OUT 

MOV 

AX[^ 

CALL 

DSTR  OUT 

MOV 

[CoioFl.a 

STC 

RET 

ENDP  CREATE 


;sav«  color  attribute 
;gat  naw  attribite 
:as8lgn  atttl  to  color 
;oulput  this  lina  to 
lha  scraen. 

,'Fla  name  poMar. 

;output  flte  name. 

;ptr  maQ  string  to  AX 
idisplay  type  of  error 
;restora  original  attri 
;sat  carry  flag 


- Sand  a  16  bit  urtsignad  binary  number  to  the  screen  in  decimal  form 

in  EGA  and  VGA  Graphics  Mode  lOh  page  0 
Input  -  AX  -  binary  number  CX  «  total  number  of  digits 
the  number  is  padded  with  leading  zeros  unti  CX  di(^ . 
fcolor]  -  current  attribute  from  data  section 
^Jtput  -  None 

Video  rrKXle:  lOh  640  x  350  16  colors  row  *  25  Col  *  80 

Note:  the  caWng  procedure  must  make  sure  ttwt  the  number  is  0(  is 
large  enough  to  display  ail  the  digits  of  the  number  In  AX  This 
procedure  can  be  used  when  leading  zeros  are  needed. 


- Ask  a  yes  or  no  question. 

Input  «  None 

Output  -  Carry  Rag  >  YES 
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pRcx:  Exrr  yn 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

CALL 

CLEAR  MESSAGE 

MOV 

AL.(Waming] 

;waming  color 

MOV 

(Color]>M. 

;set  color 

MOV 

AX.020Bh 

;row  3/Coi  12 

CAa 

GOTOYX 

:set  cursor 

CALL 

CSTR  OUT 

;display  warning 

db 

'Exit  to  DOS? 

m/N  ‘.O 

MOV 

AL.INormal] 

;normai  color 

MOV 

[Coiorl>U. 

:set  color 

EX1:  CALL 

HIDE  CUR 

CAa 

GET  CMAR 

AND 

AL.5^ 

{turn  off  bits  6  &  8 

CMP 

AL,‘N’ 

;is  It  No? 

JZ 

EX4 

;if  yes  exit 

CMP 

AUODh 

;is  It  <Enter>? 

JNZ 

EX2 

;if  not  contkHJe 

STC 

;sat  carry  flag 

JMP 

SHORT  EX5 

:exit 

EX2:  CMP 

Aur 

;is  It  Yes? 

JNZ 

EX1 

;if  not  get  another 

STC 

;set  carry  flag 

JMP 

SHORT  EX5 

:exlt 

EX4:  aC 

Idear  carry  flag 

EX5:  POP 

DX 

;refltore  reisers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  EXIT_YN 

• 

• 

; - Clear  the  screen  and  place  the  cursor  in  position  0.0 

input  - 

None  Color 

'  current  [color]  attrttxjte  from  data  section 

Output 

-  None  Border  color  is  also  set  the  same  as  the  screen. 

Notes:  AK  registers  saved.  25  rows  and  80  columns  page  0  assumed 

raOC  CLEAR  SCREEN 

PUSH 

AX 

;flave  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BH.(Colorl 

;color  attrttxjte 

MOV 

AX.0700h 

;inltialize  window  func 

SUB 

CX.CX 

;row/coi  -  0,0 

MOV 

DX184Fh 

;raw/coi  *  24,79 

INT 

lOh 

idear  screen  wfoKlow 
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MOV 

BH.[Coior] 

icoior  attrttxjte 

MOV 

CL.4 

;ahlft  background  color 

SHR 

BH.a 

;to  the  lower  4  bytes. 

MOV 

AX.1001h 

:function  number 

INT 

lOh 

;set  screen  border 

MOV 

AH.2h 

:set  cursor  position 

MOV 

BH.0 

;page  0,  row, col  to  DX 

MOV 

OX.CX 

;position  cursor  at  the 

INT 

lOh 

:the  top  left  comor. 

POP 

DX 

:restore  reefers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  CL£AR_SCREEN 

; - Draw  a  4  iine  80  column  menu  box.  Starting  at  row  0-21.  column  0. 


Input  -  AX  -  Row, Columns  cursor  position.  Column  must  be  0 

Ou^  >  None 

Calls  CSTR_OUT  proodeures 


PROC  MENU  BOX 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

XOR 

AL.AL 

;set  column  to  0 

CALL 

QOTOYX 

;set  cursor  position 

MOV 

DU(Color] 

;save  original  Color 

MOV 

AL,[Menuj 

idange  color  attribute 

MOV 

[Color], AL 

;for  scren  output. 

CALL 

CSTR  OUT 

;draw  menu  box 

db 

201,  78’DUP  (205).187 

;all  except  last  byte. 

db 

186,  78  DUP  f  ’).186 

;CSTRU_OUT  wll  cause 

db 

186,  78  DUP  C  ').186 

;the  scr^  to  scroll 

db 

200,  78  DUP  (205).0 

;in  row  25,  col  80. 

MOV 

BUAL 

;cdorto  BL 

MOV 

AH,09h 

;wrlte  char  funct  no. 

MOV 

AL.188 

;last  character  of  box 

MOV 

BH,0 

;page  0  assumed 

MOV 

CX.1 

'.number  of  bytes 

INT 

lOh 

nwrlte  last  byte 

MOV 

[Colorj.DL 

;restore  original  Color 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  MENU  BOX 

■Draw  a  4  line  80  column  menu  box.  Starting  at  row  0-21,  column  0. 
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Input  «  AX  -  Row, Columns  cursor  position.  Column  must  bs  0 
Output  -  Nons 
Cals  CSTR  OUT  proodsurss 
PROC  CLEAR  BOX 


PUSH 

7a 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DUfColor] 

;aave  original  Color 

MOV 

AUlNormal] 

:ciange  color  attrfoute 

MOV 

[Coior].AL 

:for  scren  output 

XOR 

AL.AL 

'.set  column  to  0 

MOV 

BL,79 

MOV 

BH.AH 

ADD 

BH.4 

CALL 

CLEAR  WINDOW 

MOV 

[CoiorfDL 

;re8tore  original  Color 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  CLEAR^BOX 


;  Display  the  DOS  extended  error  message  return 
;  by  caUIng  Int  21h  function  59h  -  Get  extended  error  information.  If  the 
'.error  code  Is  less  then  36  the  error  string  Is  presented.  Ifttieerror 
;  number  is  36  or  larger  the  number  Is  print  to  the  screen. 

;  Input  «  None  data  bytes  (ErrCode].(Color],  and  {Normal]  assumed. 
;  Output  *  Error  number  in  [ErrCode] 

PROC  DISPLAY  ERROR 
PUSH  AX" 

PUSH  BX 
PUSH  CX 
PUSH  DX 
PUSH  ES 
MOV  [ErrCodel^U. 

CALL  CLEAR  MESSAGE 
MOV  CH.(Waniing] 

MOV  CL,[Color] 

MOV  (Colorl.CH 
MOV  AX.0207h 
CALL  GOTOYX 

; - request  extended  error  information 

XOR  BX.BX 
MOV  AX.S900h 
INT  21h 
XOR  AH>kH 
CMP  AL.0 
JZ  ERROl 


'.save  AL  register 

?Mamfog  color 
;aave  original  color 
;set  color 
;row  3/Coi  8 
;ael  cursor 

;get  extended  error 
;information  from 
;DOS  system 
;zeroMbyte 
;was  an  error  found? 

;tf  NO  display  message 
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CMP  AL.37  :1s  cods  <  37  ? 

X  ERR01  :V  YES  display  mess 

CALL  CSTR_OUT 
ctt)  ‘  DOS  irror  Number.  ‘,0 
CALL  BIN  OOT 
MOV  AX.37 

ERROI:  SHL  AX.1 

MOV  BX.OIIset  ErrStr 
ADO  BXM 
CALL  CSTR  OUT 
db  '  DOS  Error  '.0 
MOV  AX.{BX] 

CALL  DSTR  OUT 
CALL  CSTR’OUT 
db  '  Press  Any  Key.  ’,0 
MOV  [Color].a 
CALL  HIDE  CUR 
CALL  ERR  'kXJNO 
CALL  QET'CHAR 
POP  ES  " 

POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  DISPLAY  ERROR 
.DATA 

ErrStr  dw  ErrO0.EnO1,EnO2.EnO3.EnO4.ErrO5.En06.EnO7,EnO8.ErrO9 
dw  ErrIO.Em  1  .Err12,Em3,Err14,Em5.Em6.Err17,Enn8,Err19 

dw  Err20.Err21,Err22.En23.ErT24,En2S.Err26.Err27,En28.En29 
dw  Err30.Err31.En32.Err33,Err34,Err35.Err36.Err37 


EnOO 

db 

'no  error  found’.0 

EnOI 

db 

function  number  invalid’, 0 

ErT02 

db 

He  not  found’, 0 

ErrOS 

db 

’path  not  found’,0 

En04 

db 

1o  many  open  fles’,0 

EnOS 

db 

’access  denied’,0 

En06 

db 

’handto  invMid’,0 

En07 

db 

’memory  control  blocks  destroyed'.O 

EnOe 

db 

’insufficient  memory’,0 

En09 

db 

’memory  block  address  invalid’,0 

Eino 

db 

’environment  invalid’,0 

Erril 

db 

format  invBiid',0 

Err12 

db 

’access  code  invalid’,0 

Err13 

db 

’data  hivaNd’,0 

Err14 

db 

’imkown  unif,0 

ErrIS 

db 

’disk  drive  invMid’,0 

Errie 

db 

’attempted  to  remove  current  directory’, o 

Err17 

db 

’not  same  device’,0 

ErriS 

db 

’no  more  fles’,0 

Err19 

db 

’disk  wrlte-protected’,0 

Err20 

db 

’unkown  unf  ,0 

;37  *  unknown  DOS  error 
;error  number  X  2 
;polnter  to  table  base 
:BX  ptr  to  error  ptr. 


:load  ptr  to  error  sir. 
;ssnd  string  to  screen 


;ra8tore  original  color 
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iiliiiililiillii 


(tt>  'drivt  not  rwdy’.O 

db  'unkown  command*, 0 

db  'data  arror  (cfe)',0 

(tt)  'bad  raquaat  itnjctura  length*, 0 
db  *aa6k  arror*.0 

db  *unt(OMn  madia  type',0 

db  *aaclor  not  found*,0 

db  *pr<niar  out  of  papar',0 

db  ‘write  fBtjlt*.0 

db  ‘read  fault*,0 

db  ‘general  fBlure‘,0 

db  ‘sharing  violation‘.0 

db  ‘lock  vioiation‘.0 

db  ‘disk  change  inwaild‘.0 

db  'FC8  unaMBlable‘.0 

db  ‘sharing  bufler  aKceeded‘,0 

ErrST  db  ‘check  DOS  documentation‘,0 

.CODE 


;  INT24h  Substitute  critical-emx  handler  to  ten  DOS  to  Retry  or  Pal  errors  and 
;  return  to  the  calling  program.  This  subroutine  vrin  redirect  DOS‘s 
;attempt  back  to  the  calling  program. 

;  Note  ;  The  Abort  is  converted  to  what  DOS  cals  a  Pal  and  wl  return 
control  back  to  the  caling  program  with  an  error  code  In  AL 
;  INT23h  ignore  the  control  C  break  command  from  the  keyboard. 

PROC  INTERRUPT_HANDLER 

; - kwtal  critical-errw  handler 

PUSH  OS 
MOV  DX.Seg  INr24 
MOV  DS,OX 
MOV  DX,Olf8et  INT24 
MOV  AX,2S24h 
INT  21h 

; - instal  X  error  handtor  (ignore  ^  breaks) 

MOV  DX,Seg  INT23 

MOV  DS.DX 

MOV  DX,Oflset  INT23 

MOV  AX,2S23h 

INT  21h 

POP  DS 

RET 

: — substitute  interrupt  23h 
PROC  iNT23  PAR 
XOR 
IRET 

ENDP  INT23 
; — substitute  irkerrupt  23h 
PROC  INT24  PAR 
PUSH  BX 


PUSH 

PUSH 

b 

PUSH 

SI 

PUSH 

01 

PUSH 

BP 

PUSH 

DS 

PUSH 

ES 

MOV 

OKM 

:ssMslnOX 

MOV 

AX.GOATA 

;gsl  dele  segmert 

MOV 

DSM 

;assign  dita  segmert 

MOV 

CUICotor] 

:get  euireit  sttribute 

MOV 

AUrVbmli^] 

;gst  weming  color 

MOV 

[Color]  AL 

;assign  to  color 

MOV 

AX.0220h 

4  /  col  0 

CALL 

GOTOYX 

;posltiOT  cursor 

CALL 

CSTR  OUT 

*jend  string  to  screen 

db 

7.7,*  Error  Press  R  to  Retry  or  A  to  Abort  *.0 

CALL 

HIDE  CUR 

CRTI:  MOV  AH.6 

;Dos  function  number 

MOV 

DUOFFh 

'.get  char  Input  from 

INT 

21h 

;the  keyboard. 

JZ 

CRT1 

:tf  not  char  try  again 

AND 

AUSFh 

;make  capital  letter 

MOV 

AH>V. 

‘.input  to  AH 

MOV 

AU3 

;3  «  fsl  the  DOS  cal 

CMP 

AH.’A* 

;is  k  an  Abort  ? 

JZ 

CRT2 

:e)dt  Van  Abort 

MOV 

AU1 

;1  »  retry  the  DOS  cal 

CMP 

AH.‘R* 

:is  k  a  Retry  ? 

JNZ 

CRT1 

'.V  not  get  new  char 

CRT2:  MOV  DUAL 

:save  return  code 

MOV 

AUIMenu] 

;get  menu  color 

MOV 

(Color].AL 

;assign  to  color 

MOV 

AX.0220h 

;rQw  4  /  col  0 

CALL 

GOTOYX 

;poeitlon  cursor 

CALL 

CSTR_OUT 

;send  string  to  screen 

db 

■  * 

•.0 

MOV 

[Colorl.CL 

;assign  original  attri 

MOV 

AX.DX 

irestore  DOS  return  code 

POP 

ES 

POP 

DS 

POP 

BP 

POP 

Dl 

POP 

SI 

POP 

DX 

POP 

CX 

POP 

BX 

IRET 

ENDP  INrr24 

ENOP  INTERRUPT^HANDLER 
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•Th«  PwjM  for  S0t  fbrl/2  aacond. 


InpU  - 

None 

Output 

-  None 

PROC  PAUSE 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

AX^ 

;Get  ticks  functton  no. 

INT 

lAh 

;get  Dos  tkner  ticks 

MOV 

BX.DX 

;kMv  byte  ticks  to  BX 

ADO 

BX.9 

;9  >  1/2  second 

PAI:  XOR 

AX.AX 

‘.Get  ticks  function  no. 

INT 

lAh 

;get  Doe  timer  ticks 

CMP 

BX.DX 

;is  time  run  out? 

JNC 

PAI 

;if  not  loop  again 

CLC 

;ciear  carry  flag 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  PAUSE 


- Sflfoct  a  Safoct  a  Kay  fie. 

Input  «  Nona 

Output  -  Carry  Flag  I  DOS  Error 
Local  varlabias: 

BH  «  NNta  bar  position  #  1  to  14 

BL  -  alartfog  directory  number  #  i  to  MaxFIa 


PROC  SELECT  RLE 
PUSH  AX" 

PUSH  BX 

PUSH  CX 

PUSH  DX 

CALL  CLOSE  RLE 

CALL  SET  TYPE 

CALL  CR^TE_MEM_DiR 

Sll  %lect  screen 

JC  SEU 
;•*— diaplay  the  Has 

MOV  BX.[BarPoel 
SELO:  MOV  AX,BX 

CALL  DISPLAY  RLES 
SEL1:  CALL  GET 
CMP  AUlBh 
JNZ  SEL2 


;cfo6e  any  open  fla 
;POS  or  NEG  varlabias 

;mai(a  a  meiTKxy  directory 
;exltK  error 

;dl8ptay  aeioct  acreen 
;no  fles  in  dlTMtory 

;8tatting  position 
;fle  variables  to  AX 
;fles  to  screen 
;get  keyboard  input 
;is  K  an  Esc  key  ? 

;if  not  goto  next  test 
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Jl^  SEU  '.Ext 

SEL2;  CMP  AL.OOh  ;isKapicfc7 

JZ  SEL3  ;ir  YES  exk  loop 

; - MW  tf  M)  MtKw  oontroi  kay  was  prasssd 

CALL  CONTROL_KEY8 

JC  SEL1  ~  :no  changa  gat  char 

JMP  SHORTSEU)  ;radfaw  fla  window 

; - Opan  fla.  count  lO'a.  and  look  for  rankad  data  Hna. 


SEL3:  CALL  MOVE  NAME 
CALL  OPEN  ^ 

JC  SEL5 
MOV  [BarPoa].BX 
CALL  READ  DATE 

CAa  rndIero 

JC  jtyi  ~ 

SEL4;  CALL  RELEASE  MEM  DIR 

CLC 

JMP  SHORT  SEL6 
SEL5:  CALL  RELEASE  MEM  DIR 

STC 

SEL6:  POP  DX 

POP  CX 
POP  BX 
POP  AX 
RET 


ila  nama  to  data  aag 

;opanSLDI1la 
:Eac  «  main  manu 
;aava  currant  poaition 
;gat  DOS  data  of  lie 
;locata  000  In  data  lla 

‘.ralaaaa  mam  block 
:ciaar  carry  flag 

;raloata  mem  block 
;arror  set  carry  tag 


Adjust  the  NgNight  bar  poaition  variabias  in  BX  rej^er 
Input  -  AL  «  Char  for  the  keyboard 
BH  «  hlite  bar  poaUon  #  1  to  14 
BL  •  starting  directory  number  #  1  to  MaxFIe 
Output  Carry  Flag  »  no  chiwige  in  BX 


PROC  CONTROL_KEYS 

; - is  It  a  Down  arrow  ? 

CMP  AL.24 
JNZ  KYS2 
MOV  AX.BX 
ADD  AH>U. 

CMP  [MaxFIe]^ 
JC  KYS10 
CMP  BH.14 
JZ  KY81 
INC  BH 

JMP  SHORT  KYS9 
KYSl:  INC  BL 

JMP  SHORT  KYSO 

: - is  It  an  Up  arrow  ? 

ICYS2;  CMP  AL.S 
JNZ  ICYS4 
CMP  BX.0101h 
STC 

JZ  SHORT  KYS10 


;is  it  Down  arrow? 

;V  not  goto  next  test 
;get  current  variables 
;inc  hVke  bar 
;is  K  end  of  fto  ? 

;if  yes  Bdt  no  changes 
;is  bottom  of  window  ? 

;lf  yea  Inc  starting 
;alaa  Inc  bar  number 
;sBdt 

;inc  starting  number 
;dispiay  new  directory 

,'ia  It  Up  arrow  ? 

;V  no  goto  next  test 
:is  it  bej^iing  of  ffle  ? 
;set  carry  for  ret 

;V  yes  Exit  no  changes 
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CMP 

BH,1 

JZ  1 

KYSS 

DEC 

BH 

JMP 

SHORT  KYSS 

KYS3:  DEC 

BL 

JMP 

SHORT  KYSS 

; - la  k  a  Homa  Kay  ? 

ICYS4:  CMP 

AU1 

JNZ 

KYSS 

MOV 

BX.0101h 

MJP 

alPilv 

SHORT  KYSS 

; - la  k  a  End  Kay  ? 

KYSS:  CMP 

AI.6 

JNZ 

KYS7 

MOV 

AH.[MaxFla] 

CMP 

AH.15 

JNC 

KYSS 

MOV 

BL.1 

MOV 

BH.AH 

JMP 

SHORT  KYSS 

KYS6:  SUB 

AH.13 

MOV 

BlJkH 

MOV 

BH.14 

JMP 

SHORT  KYSS 

; - la  k  the 

PageUp  Key? 

KYS7:  CMP 

AL.1S 

JNZ 

KYSS 

MOV 

AH.BL 

SUB 

AH, 14 

MOV 

AU1 

JLE 

KYS4 

MOV 

BIJ^ 

JMP 

SHORT  KYSS 

; - la  k  the 

PagaOn  Key? 

KYSS:  CMP 

AL.3 

STC 

JNZ 

KYS10 

MOV 

AHBL 

MOV 

AU[MaxFle] 

SUB 

AL.14 

ADO 

AH,14 

CMP 

ALAH 

MOV 

AL.6 

JLE 

KYSS 

MOV 

BUSH 

KY89;  CLC 
KY810:  RET 


ENDP  CX)NTROL_KEYS 


M  top  of  window  ? 

;ir  yM  Doe  darting 
;«IM  dac  bar  numbar 
;a9di 

;dac  ataitlng  numbar 
'.(ttapiay  naw  diraclory 
:go  to  Top  of  Mactroy 
:ia  k  Homa  kay? 

:l  not  goto  naKt  taat 
:aattopoffla 
;diapiay  naw  diractory 
;go  Bottom  of  Directory 
;ia  fc  End  kay  ? 

;l  not  goto  nvd  tait 
:gat  numbar  of  llaa 
-jaa#  ofllaa  >14? 

*.V  yaa  jump  to  laatpage 
:atarting  poaklon 
:hlka  kM  antry. 

;maxflaa-13  -  ataiting 
:atorelnBL 

;hllta  bottom  of  wiiKlow 
:diaplay  (Uractory 

:ia  k  tha  pagaup  kay  ? 
;k  goto  naxt  taat 
;atarting  #  to  AL 
;aubtiact  14  «  pagaup 
:char  for  homal^ 

:no  goto  homekey 
'.changapaga 
;diaplay  new  page 

;i8  k  tha  pagadn  key  ? 
;aat  carry  flag  for  rat 
;if  goto  next  taat 
;atarting  #  to  AL 
'.number  of  dk  flaa 
;ptr  to  fop  of  laatpaga 
;paga  «  page  +  1 
;ia  thia  tha  laatpage? 
:char  for  End  k^ 

;l  yaa  goto  End 
;aiaa  go  Page  1 


: - Diapiay  Flea  in  Memory  Diractory 

Input  AL  «  alarting  diractory  number  (1  to  MaxFIe) 
AH  -  hike  bar  numbar  (1  to  14) 
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Output  a  14  lira  of  fie  rames  to  the  screen. 


Note:  local  varlabies:  AH  «  non  hike  color  attrkNJte 

BX  «  roMT/col  DH  >  hike  tMr  color  attritxjte 

CX  «  loop  counter  DL  -  reverse  hike  btf  number  (14  to  1) 
Note:  the  hike  bar  counter  stored  in  DL  is  reversed  from  1  to  14 


into  14  to  1  so  k  can  be  compaired  to  the  loop  counter  in 
CX  to  select  the  correct  row  to  hike. 


PROC  DISPLAY  RLES 
PUSH  AX" 

PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  0U15 
SUB  DLAH 
MOV  AH.[Menu] 
MOV  tColor].AH 
MOV  OH,(Waming] 
MOV  BX.0520h 
MOV  CX.14 
DISC:  CMP  DUCL 
JNZ  DIS1 
MOV  [Color], DH 

DIS1:  CALL  DIR  STR 
CMP  DLCL 
JNZ  DIS2 
MOV  [Color].AH 
DIS2:  INC  BH 
INC  AL 
LOOP  DISC 
CALL  HIDE  CUR 
CLC 

DIS3:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  DISPLAY  RLES 


:save  registers 


;conwert  1  to  14  into 
:i4tol 

;normal  altrttxke 
;set  defaiit  color 
;hllte  bar  attkbute 
;rowr  6/  col  32 
;number  of  rows 
:te  this  the  hike  bar 
;<>  0  s  no  color  change 
;lf  yes  color  >  warning 
:display  ora  fie  name 
;is  the  the  hike  bar 
;<>  0  -  no  color  change 
;if  yes  color  *  menu 
;ptrto  next  row 
;ptr  to  next  dir  entry 
iloop  14  times 

idear  carry  flag 
;re8tore  registers 


Move  Selected  flto  Name  from  memory  block  to  FleNa  in  data  segment 
input  BL  >  starting  directory  number  (1  to  MaxFIe) 

BH  »  hike  bar  number  (1  to  14) 

Output  an  ASQIZ  ne  name  sMng  in  FleNa  In  the  data  section. 


PROC  MOVE  NAME 
PUSH  M. 
PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  AX.BX 
ADD  AU^H 
DEC  AL 


;save  reisers 


;membik  ptr  to  AX 
;start  dk  no  hike 
;minus  1  «  membik  recno 
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XOR 

AH.AH 

MOV 

CL.4 

8HL 

AX.CL 

INC 

AX 

INC 

AX 

MOV 

Si.AX 

MOV 

Oi.Olfset  FlaNa 

MOV 

AX.DS 

MOV 

ESM 

MOV 

AX.(OirSegl 

MOV 

OSM 

CIO 

MOVO:  MOV  AL,[SI1 

CMP 

AL.’.* 

JZ 

MOVI 

MOVSB 

JMP 

SHORT  MOVO 

MOVI:  MOV  AX.ES 

MOV 

DS.AX 

MOV 

CX.5 

MOV 

SI.OfNat  FITyp 

REP 

MOVSB 

CLC 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  MOVE_NAME 


;conv«rt  16  bH  number 
;shlt  counter 
■^4  *  tknee  16 
;ekip  2  leetttng  epacee 

;inembH(  olleet  to  SI 
:deetinallon  oHeet 
:eeelgn  ES  to  the 
:dataeeclion 
:membB(  beee  ptr 
;aeeign  membik  to  DS 
;auto  Inc  SI  &  Dl 
:get  first  byte 
;le  beginnino  of  type? 
:eKttlooplyee 
:inoMebiyte 

'.loop  until  beg  of  type 
:rs8toreOSto 
;polr«  to  the  data  sag 
;numbar  byte  to  moMS 
;poinl  to  5  byte  string 
:move  type  to  FleNa 
:cieor  carry  flag 
;restore  registers 


- Display  the  Select  a  fie  screen. 

Input  «  None 

Output  -  Carry  Flag  if  no  RL  fles  in  current  directory 


PROC  SELECT  SCREEN 


PUSH 

AX" 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

XOR 

MM 

;row  O.coiumn  0 

CALL 

MENU  BOX 

;(kaw  menu  box 

MOV 

ax.oi6^ 

;row  l.coiurm  4 

CALL 

GOTOYX 

MOV 

CL.[Colorl 

;save  current  color  attr 

MOV 

AL,[Menui 

;sel  color  «  menu 

MOV 

[Color].AL 

CALL 

CSTR  OUT 

db 

’Use  the  *.24.’  and  ’.25.’  arrow  keys  to  higNight  the  ’ 

db 

’desired  data  fle.’.0 

MOV 

AX.020Fh 

'.row  2.column  7 

CALL 

GOTOYX 

CALL 

CSTR  OUT 
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db 

'Ptws  th«  <Entir>  toy  to  select  the  NghUghted  fle.'.0 

MOV 

AL,[Nonnsn 

;aet  Color 

MOV 

(Color]>tL 

CALL 

CLEAR  TITLE 

MOV 

AX.04Q6h 

CALL 

QOTOYX 

CALL 

CSTR^OUT 

db 

t>lrect^Hlh:  '.0 

MOV 

AX.OnMtPath 

CALL 

DSTR  OUT 

MOV 

AX.1^ 

:row  21,oolumn  0 

CALL 

MENU.BOX 

‘.draw  menu  box 

MOV 

AL,[Mehu] 

:eat  color  »  menu 

MOV 

[CdorJ^M. 

MOV 

AX.ie06h 

:rDW  23.column  5 

CALL 

QOTOYX 

CALL 

CSTR  OUT 

db 

‘Prees  the  <Eac>  key  to  ration  to  the  menu  without  ’ 

db 

'selecting  a  fle.’.0 

MOV 

AX.1709h 

;raw  23,column  5 

CAa 

QOTOYX 

CALL 

CSTR  OUT 

db 

The  currant  directory  contains;  ',0 

XOR 

AXAX 

;2ero  AX  register 

MOV 

AUfMaxHe] 

;load  rwimber  RL  Has 

CMP 

AU1 

;ls  k  only  one  ? 

JZ 

CEE1 

;is  yes  singular  text 

CMP 

AUO 

;is  it  zero  ? 

JZ 

CEE2 

;lf  yes  display  error 

CALL 

BIN  OUT 

;else  dispfoy  number 

CALL 

CSfR_OUT 

;of  nes. 

db 

*  lies  wkh  a  type  of  **,0 

JMP 

CEE4 

:  CALL  CSTR  OUT 

;singuiar  text  mess. 

db 

'1  He  with  a  type  of  **,0 

JMP 

CEE4 

t:  CALL  CSTR  OUT 

;zero  nes  statement 

db 

*no  nee  with  a  type  of  ".0 

MOV 

AX.Offset  FITyp 

CALL 

DSTR  OUT 

CALL 

cstr‘out 

db 

".*.0 

MOV 

AL,(Waming] 

;wamlng  color 

MOV 

ICokx]^ 

;set  color 

MOV 

AX.0506h 

;rawSCol7 

CALL 

QOTOYX 

;set  cursor 

CALL 

CSTR  OUT 

:dlsplay  warning 

db 

’  No  ’.O" 

MOV 

AX.Offset  FITyp 

CALL 

DSTR  OUT 

CALL 

CSTR”OUT 

db 

’  Has  found  in  directoryi 

Press  Any  Key  for  ’ 
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db  'prtMkxJS  Menu.  ',0 
CALL  HIDE  CUR 
CALL  OETtHAR 
MOV  (Coiw].a 
STC 

JMP  SHORT  CEE5 


>rait  for  teyboard  key 
;r88tore  original  Color 
;8et  carry  flag 

;axll  no  Has  found 


background  boxaa  and  key  discripdons 
CEE4:  MOV  AX.Off8et  FTTyp 

CALL  DSTR  OUT 
CALL  CSTR"OUT 
db  ".’.0 

CALL  SELECT  WINDOW 

CEE5:  POP  DX  ~  :reetore  registera 

POP  CX 
POP  BX 
POP  AX 
RET 


draw  He  dipiay  windows  and  key  instructions 
Input  «  None 
Output  -  None 
PROC  SELECT  WINDOW 


MOV 

AL,lNormai] 

;set  Color 

MOV 

(Coior]>U. 

MOV 

AX.0804h 

;row  8  column  4 

CALL 

GOTOYX 

CALL 

CSTR_OUT 

db 

''<UpArrow>  >  Move  Up 

a 

db 

*<Down  Arrow>  »  Move  Down',0 

MOV 

AX.0A04h 

:row  10, column  4 

CAa 

GOTOYX 

CALL 

CSTR  OUT 

db 

'<PagMp>  -  ScroR  Up 

• 

db 

•<Home>  -  First  Fle.*,0 

MOV 

AX.0C04h 

;row  12,column  4 

CAa 

GOTOYX 

CAa 

CSTR_OUT 

db 

”<Pagebn>  «  Scroll  Down 

• 

db 

*<End>  -  Last  Fie.', 0 

;—(baw  display  windows 

MOV 

AL,[Sysle??»l 

MOV 

[Colorl^U. 

MOV 

AX,0621h 

MOV 

BX.1332h 

CAa 

CLEAR_WINDOW 

MOV 

AL.(Mm] 

MOV 

{Coior],AL 

MOV 

AX.06lFh 

MOV 

BX.1230h 

CAa 

CLEAR  WINDOW 

CAa 

HIDE  ^R 

MOV 

[Color],CL 

;restore  origbiai  Color 

ac 

;clear  carry  flag 
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RET 

ENOP  SELECT  WINDOW 
ENOP  SELECT~SCREEN 
ENOP  SELECT'RLE 


;  Crwi*  a  dlTMtory  of  th«  FM(»acfc  fiM  in 
Inpu  -  Nona 

Oitput  -  Cany  Hag  I  DOS  anor.  AL  «  FFh  ia  to  many  Has 
(OIrSagI  -  Starting  aagmant  addraaa  of  mamory  btodc 
{MaKFIe]  •  total  numbar  of  PaadBack  fim. 

PROC  CREATE.MEM^DIR 


PUSH 

BX" 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

CALL 

RELEASE  MEM  DIR 

JNC 

CREO 

:continua  tf  no  error 

JMP 

CRE9 

:axit  on  DOS  error 

CREO:  CALL  COUNT  RLES 

;hOMr  many  SLDi  Has' 

CMP 

AX.2S1 

:i8  Ilea  found  <251? 

JNC 

CRE1 

:tf  no  diapiay  an  maaa 

MOV 

[MaxFIa]^ 

;aava  numbar  of  flaa 

JMP 

CRE2 

iilyaaOK!  continue 

CRE1:  MOV  AX,030Bh 

:rw/  3  /  col  1 

CALL 

GOTOYX 

;poeitlon  curaor 

CALL 

CSTR_OUT 

;atring  to  acraan 

db 

Thara  ira  to  mora  than  2S0  SLO 

flea  in  thia  diraclory.’.O 

MOV 

AX.0511h 

;raw  3  /  coi  1 

CALL 

GOTO'OC 

ipoaMon  curaor 

CALL 

CSTR  OUT 

;atring  to  acraan 

db 

'Plaaaa  mova  aoma  of  them  to  another  diractory.’,0 

MOV 

AX,071Ah 

;row  3  /  col  1 

CALL 

GOTOYX 

;poaition  curaor 

CALL 

CSTR  OUT 

;atring  to  acraan 

db 

’Praas  Any  Kay  to  Exit  to  DOS.’,0 

CALL 

HIDE  CUR 

;hide  curaor 

CALL 

GET  CHAR 

;wall  for  kaypraaaad 

MOV 

Aucm 

;to  many  Baa  marker 

JMP 

CRE8 

;e)di  to  many  flea 

CRE2:  CMP  AL.0 

.-ware  any  flea  found  ? 

JZ 

CRE8 

;f  no  flaa  Exit 

CRE3:  CALL  GET  DIR  BLK 

;alocata  memory  bik 

JC 

CRE9 

CALL 

MAKE  DIR 

JC 

CRE9  “ 

CALL 

SHELL  SORT 

CRE8:  CLC 

idear  carry  flag 

CRE9:  POP  ES 
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irwtora  re{^8ters 


POP  DX 
POP  CX 
POP  BX 
RET 

ENOP  CREATE  MEM  DIR 


Malw  ■  dirvctory  of  FsadBack  Am  in  memory  block  [OirSeg] 

Each  entry  le  16  bytes.  Formet:  2  specee  +  Fie  Neme  +  padding  spaces 


Input  < 

■  [DirSeg]  and  [Search]  in  data  section 

Output  »  None 

PROC  MAKE  DIR 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

DS 

PUSH 

ES 

MOV 

AX.DS 

MOV 

ES.AX 

CMP 

WORD  [DirSeg].0 

;is  membik  allocated 

STC 

;aet  carry  if  error 

JZ 

COP4 

;l  no  merr^k  EXIT 

; - find  first  match 

XOR 

BX.BX 

utero  fie  counter 

MOV 

AX.4E00h 

:find  a  first  fie 

XOR 

CX.CX 

iordinary  fikw  only 

MOV 

DXOffset  Search 

:ptr  Ae  name  ASCtIZ 

INT 

2lh 

;do  the  first  search 

JC 

COP4 

no  match  exft 

: - set  up 

ES  and  DS  se(^nent  registers 

MOV 

AH.62h 

;get  the  current  PSP 

INT 

21h 

;segment  address. 

JC 

COP4 

lexlt  on  error 

MOV 

AX.[DirSeg] 

;ptr  to  base  of  membik 

MOV 

ES,AX 

;ES  set  to  memory  bik 

MOV 

DS.AX 

;DS  set  to  memory  bik 

; - set  directory  entry  0  -  a  blank  ASCIi  string  (16  spaces) 

MOV 

AX.2020h 

itwo  spaces  in  ASCII 

MOV 

Dl,2 

idistinetion  ptr 

MOV 

SI.0 

.'sourcepir 

MOV 

CX.7 

;loop  counter 

MOV 

[SI1.AX 

;piace  1st  2  bytes 

CLO 

;auto  inc  SI  &  Dl 

REP 

MOVSW 

;piace  next  14  bytes 

: - copy  directory  entries  loop 

MOV 

DS.BX 

;DS  set  to  PSP 

; - place  leading  2  spaces 

COPO;  MOV  AX.2020h 

;t<wo  ASCII  spikes 

MOV 

[ES:DI]^ 

;place  In  directory 

INC 

Dl 

;advance  directory  ptr 

INC 

Di 
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; - moM*  ont  fie  name 

MOV  SI.9Eh 

;max  length  of  Nam 
MOV  CX.12 
COPI:  MOV  AU{SI] 

CMP  AL.0 
JZ  COP2 
CLO 
MOVSB 
LOOP  COPI 

; - pad  end  of  fie  name  with  spaces. 

COP2:  ADO  CX.2 
MOV  AL.20h 
COPS:  MOV  [ES:DI]^ 

INC  Dl 
LOOP  COPS 

; - And  next  match 

MOV  AX.4F00h 
INT  21h 
JNC  COPO 
CLC 

COP4:  POP  ES 
POP  OS 
POP  OX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  MAKE  DIR 


;80h  -  OTA:  lEh  -  offset 
;OTA  -t-  offset  «  9Eh  MOV 

;max  fie  name  length 
;lood  byte  to  be  moved 
;ls  It  end  of  string  ? 

;V  end  exit  loop 
;auto  Inc  SI  &  Dl 

;copy  Ate  name 

;number  of  bytes 
‘.space  to  AL 

:ptece  space  In  dir 
;ptrto  next  byte 
:loop  untt  CX  >  0 

:Ane  next  Ate  function 
;do  next  search 
:loop  unti  al  found 
;ctear  carry  flag 


;restore  registers 


- Allocate  memory  block  for  the  Director  of  Ates  ([MaxFIe]  -t-S  para^ephs) 

Input  -  None 

Output  «  Carry  Aag  set  if  merrKxy  block  is  not  avalabte. 

Index  Ate  seg  address  stored  in  [DirSeg] 


Note: 

The  binary  SEARCH  procedure  needs  a  blank  record  before 

the  memory  index  records, 
needed  is  [MaxFIe]  i. 

The  nwnber  of  pargraphs 

PROC  GET  DIR  BLK 

PUSH 

AX 

‘.save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MEM1:  MOV  BUfMaxPle] 

;get  rHjmber  of  Ates 

XOR 

BH.BH 

;2ero  byte 

INC 

BX 

;get  an  extra  paragraph 

MOV 

AH.48h 

;alocate  men  function 

INT 

21h 

;reque8t  memory  block 

Xi 

MEM2 

;)ump  I  memory  error. 

MOV 

[0{rSeg].AX 

;bese  address  of  seg 

JMP 

SHORT  MEMS 

;normal  exit  of  proc. 

MEM2:  MOV  CL[Color]  ;save  original  color 


CX.12 
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AL,[Waming] 
[Color]^ 
AXOIOIh 
QOTOYX 
CSTR  OUT 


MOV 
MOV 
MOV 
CALL 
CALL 
db 
db 
MOV 
CALL 
CALL 
STC 

MEM3:  POP 
POP 
POP 
POP 
RET 

ENDP  GET  DIR  BLK 


;«MtfTiing  color 
;t«t  color 
;raMv  1/Col  1 
;pocl^  cursor 
;send  Mring  to  scrssn 


‘  Not  enough  memory  for  the  directory  of  Has. 
’Preee  Any  Key  to  Coieinue. 0 


IColor].CL 
HIDE  CUR 
GET  OfAR 


DX 


;rMtore  original  color 
;hida  cursor  off  ecraan 
nealt  for  key  is  praeaad 
;sat  carry  flag  > 


CX 

BX 

AX 


Adjust  the  DOS  memory  biock  size  ailocation  to  the  minimum  amount 
in^  «  Nona 

Output  -  Carry  flag  sat  if  memory  biock  error. 

Note;  Assumes  the  programs  memory  is  in  a  singie  block 
and  the  stack  segment  is  at  the  end  of  the  program. 


:  RELEASE  MEM 

PUSH 

AX 

;aave  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

MOV 

AX.STACKSiZE 

icurrent  stack  size 

MOV 

CL.4 

iconvert  to  paragraphs 

SHR 

AX.a 

;divide  by  2^4  or  16 

INC 

AX 

;round  up  2  paragraphs 

INC 

AX 

;to  protect  top  of  stack 

MOV 

CX,AX 

:save  In  retfsterCX 

MOV 

AX.SS 

;get  stack  sag  address 

ADO 

CX.AX 

;ptr  to  end  of  stack 

MOV 

AH.62h 

;get  the  current  PSP 

INT 

21h 

;segmenl  address. 

JC 

RELO 

;e9dt  on  error 

MOV 

ES.BX 

;ptr  to  current  PSP 

SUB 

CX.BX 

;program  size  in 

MOV 

BX.CX 

;paragraphs  to  BX. 

MOV 

AH.4Ah 

;releese  mem  function 

INT 

21h 

;rolooto  previous  block. 

:  POP 

ES 

'.restore  registers 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 
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RET 

ENOP  RELEASE^MEM 

;  Count  th»  numbtr  of  FtodBack  data  flas  in  the  curract  cNractory 
Input  -  Nona 

Output  -  AX  -  total  number  of  FeadBack  flee  found, 
aeaumed  any  He  ending  with  a  .SLD  ext  is  a  FeadBack  data  fie. 
When  the  fie  is  opened  the  data  wM  be  vaUdatel. 


:  COUNT  HLES 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX.DS 

MOV 

ESM 

copy  Path  to  [Search] 


MOV 

SI,OffMPath 

;aource  offsmt 

MOV 

Oi.Offset  Search 

-.destination  offset 

CLD 

;auto  inc  Di  arxi  Si 

COUl:  MOVSB 

;copy  one  byte 

CMP 

BYTE  PTR  [SI1.0 

:is  next  char  >  0 

JNZ 

COUl 

:copy  bytes 

: — place  "V 

'  after  path  name 

MOV 

AL.‘V 

MOV 

[Dl]^ 

INC 

Dl 

;-~copy  search  name  to  end  of  path 

MOV 

SI, Offset  SearNa 

isourceptr 

MOV 

CX,13 

:number  of  bytes 

CLO 

;auto  ktc  St  &  Di 

REP 

MOVSB 

;copy  afl  13  bytes 

; - search  for  key  files 

XOR 

BX.BX 

;zero  Ne  counter 

MOV 

AX.4E00h 

;find  a  first  fie 

XOR 

CX.CX 

;otdinary  lies  only 

MOV 

DX,Off8et  Search 

;ptr  fie  name  ASCilZ 

INT 

21h 

;do  the  fkst  search 

JC 

COU6 

;V  no  match  exit 

COUS:  INC 

BX 

;fbund:incre88e  counter 

MOV 

AX.4F00h 

.-fine  next  fie  function 

INT 

21h 

;do  next  search 

JNC 

COUS 

;loop  urtfi  not  found 

COU6:  MOV  AX.BX 

;fle  count  to  AX 

CLC 

;ciear  carry  fiag 

POP 

DX 

;restore  registers 

POP 

CX 

POP 

BX 

RET 

ENDP  COUNT_nLES 

; - FR  the  name  field  with  13  spaces  in  the  data  section. 

Input  -  AX  -  pointer  to  field 
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Output  >  Nona 
PWC  CLEAR  FIELD 


PUSH 

;aave  ragistars 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX>X 

;ptrtoilaid. 

MOV 

AX.OS 

;MakeES  •  DS 

MOV 

ESM 

MOV 

CX.12 

;reerare  wngm  or  so 

MOV 

AU" 

;plaee  a  space  in  lirat 

MOV 

(BX]>U. 

:byte  of  Pnput]  string. 

MOV 

DI.BX 

;OI  «  potato  next 

INC 

Dl 

;byle  of  string 

MOV 

SI.BX 

:SI  •  poiraor  to  atr 

CLD 

‘.auto  Inc  01  and  SI 

REP 

MOVSB 

;!■  atr  with  spaces 

POP 

DX 

;raatore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

CLEAR  HELD 

- Sort  tha  Memory  Indax  Racorda. 

Irqxjt  -  expacts  tha  16  Pyta  index  racords  to  ba  locatad  at  address 
pointer  [IdxSag]  and  tha  number  of  record  to  ba  pMaxRac] 
Output  -  None 

Note:  this  routina  reassigns  the  DS  and  ES  ragisMrs  to  poM  to  tha 
Index  Fla  in  memory.  Record  0  is  not  sorted.  Tha  sort  Is 
from  record  1  to  MaxRac.  A  blank  record  in  record  0  is  needed 
for  an  ASCII  atrino  vrhan  parftarming  a  binary  search. 

Tha  mantory  index  record  length  is  16  bytes. 

Tha  sort  is  based  on  tha  first  10  bytes. 

This  sort  is  based  on  the  fdorwing  TPASCAL  procedure: 
PROCEDURE  Sort;  {A  She!  Sort} 

VAR 

Qap.J :  integen 
Temp :  atring(l3]; 

TempNo :  iiSagar. 

Begin 

Qap:«  MaxRecDiv2; 

WMegap  >  0  Do 
Begin 

For  I (Gap  -i-  1)  to  MaxRec  Do 
Begin 
J :«  l-Qap; 
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WhtoJ  >  ODo 
Begin 

If  A{J]  >  A(J-t^Q^>]  then 
Begin 

Temp AJJ]; 

A[J] AfJ-i^Qap]; 

AIJ-»-Gapl Temp; 

J  :*  J-Gap; 

End 

Bee  J  :>  0: 

End: 

End: 

Gap  :-Qap  DIV  2: 

End; 

End; 

The  foHoNv  registers  hold  the  above  variables: 

AX  >  Gap;  BX  -  J;  CX  -  I;  DX  -  MaxRec;  and  BP  -  temp  storage 


PRCX;  SHELL  SORT 

PUSH 

AX 

;8ave  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

PUSH 

OS 

PUSH 

ES 

PUSH 

BP 

MOV 

OLIMaxPie] 

;store  MaxRec  In  OX 

XOR 

OH.OH 

;2erD  high  byte 

MOV 

AX.[OlrSeg] 

:get  Index  base  segment 

MOV 

OS^ 

;reasslgnthe  OS&ES 

MOV 

ESM 

;to  ptr  to  the  Index. 

MOV 

AX,OX 

;Gfl^  •  MaxRec 

SHR 

AX.1 

;Gap  «  Gap  Oiv  by  2 

SHELI:  CMP  AX.0 

nwhen  Gap  -  0  exR. 

JLE 

SHEU 

;e)dt  I  <  -  0 

MOV 

CX^ 

;l  Is  stored  In  CX 

INC 

CX 

;l  -  Gap  1 

SHEL2:  MOV  BX.CX 

;JlnBX 

SUB 

BX^SX 

;  J  s  I .  Gap 

JZ 

SHEL3 

;aklp*J  -0 

JC 

SHEL3 

;aMpVJIs<0. 

CALL 

COMPARE  SWAP 

;tepeat  ur«l  J  -  0 

SHEL3:  INC 

CX 

;l  -  1  1 

CMP 

OX.CX 

;ls  1  <  or  -  MaxRec 

JNC 

SHEL2 

;lf  yes  then  loop. 

SHR 

AX.1 

;Gap  >  Gap  Olv  by  2 

JMP 

SHORT  SHELI 

SHEU:  POP  BP 

.-restore  registers 

POP 

ES 

POP 

OS 

POP 

OX 

POP 

CX 
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POP  BX 
POP  AX 
RET 


:soit  it  compiato. 


—CtifiDuit  and  iwnn  IndtK  ttrinnt  If  notfinfl 
Nal»:TNtitatubroulintofSHELL.SORT.  The  inctax  fit  rMord 
Itngfh  it  16  bylM.  Tht  tort  it  madt  on  tht  firat  6  byttt. 

input  -  AX  -  Qap;  BX  »  J;  OS  &  ES  point  to  tha  bata  of  Max  He. 
Output  -  AX  -  ciap;  CX  -  I;  and  DX  «  MaxRac  art  rttumad  on  cfiangad. 
BX  •  Jitditcardad 

COMPARE_SWAP 

PU^  AX  ~  ;tavt  rtf^ttars 

PUSH  CX 

PUSH 

MOV  DX^  ;tava  Qap  In  DX 

Compwt  tha  first  six  bytas  of  aach  Max  racord 
COMP1:  MOV  BP.BX  :savaJlnBP 


ADO 

AX.BX 

:AX  >  J  -t-  Qap 

MOV 

CL.4 

:sMft  counter 

SHL 

AX.CL 

;ptr  to  J-t-Qap  in  mam 

SHL 

BX.CL 

;ptr  to  J  in  mam 

CLO 

wito-M  St,  Dl 

MOV 

aM 

;ofl8at  of  J  Qap 

MOV 

SI.BX 

lOfNatof  J 

MOV 

CX.10 

;bytecounar 

REPE 

CMPSB 

:compara  strings 

JLE 

COMPS 

;aKit  V  <  or  >. 

^Mtp  tha  16  bytas  Of  Max  racoid  f  ttrino  A  >  String  A-i-Qap 

MOV 

01^ 

;olfset  of  J  +  Qap 

MOV 

SI.BX 

;ofNatof  J 

MOV 

CX,8 

;word  courtar 

COMP2:  MOV  AX.[SI1 

;raad  word  each  str. 

MOV 

BX.I0I1 

MOV 

[SI].BX 

;wrRa  word  each  atr. 

MOV 

[DI].AX 

INC 

Dl 

;poM  to  next  word 

INC 

Dl 

INC 

Si 

;poM  to  naod  word 

INC 

Si 

LOOP 

COMPS 

;ioop  6va  tbnas 

MOV 

AX.DX 

;raatoragBptoAX 

MOV 

BX.BP 

:rastora  J  to  BX 

SUB 

WKM 

g  «  j.gap 

JZ 

COMPS 

;aKlt  tf  J  »  0. 

JNC 

C0MP1 

.’continue  tf  J  >  0. 

COMPS:  POP  DX 

^rastora  ragistsra 

POP 

CX 

POP 

AX 

RET 

;ratumtoShatf  Sort 

ENOP  COMPARE.SWAP 
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ENDP  SHELL.SORT 


; - S«nd  a  16  t>yta  mamory  diraetory  entry  to  the  Screen 

Input  • 

•  AL  -  DirFle  number  (0  to  Maxfie)  0  «  blank  directory  entry 

BX  >  ro¥v  /col 

[MaxFIe]  «  the  number  of  directory  entries  In  the  memory  dir 

[OirSeo]  -  segment  address  of  the  base  of  the  memory  directory 

Output 

-  ASCIIZ  string 

sent  to  the  screen 

raOCDIR  STR 

PUSH 

AX 

;aave  registars 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

compute  dMIe  offset 

XOR 

AH.AH 

;AX  «  DkPle  number 

CMP 

(MaxPle].AL 

;is  DirPle  #  OK  ? 

JNC 

OIRO 

;if  in  bounds  )ump 

MOV 

AIJkH 

;eise  make  blank  fie 

DIRO;  MOV 

CU4 

:shift  4  >  times  16 

SHL 

AX,CL 

‘.mutti  by  16 

MOV 

Si.AX 

:ASCilZ  message  ptr  SI 

MOV 

AX.BX 

;row/coi  to  AX 

CALL 

GOTOYX 

:posMon  cursor 

MOV 

Di, Offset  Input 

;ptr  to  input  string 

MOV 

AXDS 

:place  data  seg 

MOV 

ESM 

the  ES  register. 

MOV 

AX.IDirSeg] 

'.place  the  memory  bik 

MOV 

DS.AX 

;seg  in  DS. 

MOV 

CX.8 

;8  words  16  bytes 

CLO 

REP 

MOVSW 

MOV 

AX.ES 

;restore  reg  DSto 

MOV 

DS^ 

ipointto  data  segrnem. 

XOR 

AUAL 

;piace  MTO  in  string 

MOV 

IDIl^ 

;as  ErxlOfString  marker 

MOV 

AX.On^  Input 

;ptr  to  input  string 

CALL 

DSTR  OUT 

;send  name  to  the  screen 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  DIR^STR 

* 

Input  - 

none 

Output 

-  none 

PROC  PRINT  WAIT  MESS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 
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; — pitMt  Mtl  mttMO*  to  •crawt 


CALL 

CLEAR  MESSAGE 

MOV 

CL.[Coibr] 

;aavs  original  sltrl 

MOV 

ALlWamIng] 

^Naming  color 

MOV 

{Coior)>L 

:aat  color 

MOV 

AX.020Bh 

;rcMr3/Col  12 

CALL 

QOTOYX 

:aat  cursor 

CAa 

CSTR^OUT 

:dispiay  warning 

db 

riMM  wmn . 

Reading  data  Be:  '.0 

MOV 

AX.  ORsat  FleNa 

CALL 

DSTR  OLfT 

CALL 

CSTR^OUT 

db 

”.0 

MOV 

(Calorl.CL 

OOQVIfll  mKmI 

CALL 

CLC 

HiOE^CUR 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

RET 

AX 

ENDP  PRINT_WAIT_MESS 

;  Retene  the  memory  directory  and  variable  blocks. 

Input  «  Nona 

oitput  -  Carry  Hag  I  DOS  error 
pirSag]  -  Starting  aagmant  address  of  directory  block. 
fVdrSag]  -  starting  sagmart  address  for  variable  block. 
[MskFIs]  -  total  number  of  FeedBack  fles. 

PROC  RELEASE  MEM  DIR 
PUSH  BX“ 

PUSH  CX 
PUSH  DX 
PUSH  ES 
XOR  f>XM 
CMP  pirSagl^ 

JZ  REL2 

; — release  assigned  memory  block 
MOV  AX.[OkSeg] 

MOV  ES^ 

MOV  AX.4800h 
INT  21h 
JC  REL2 
; — MMize  variabies 
MOV  AX.0101h 
MOV  {BarPo6)>0( 

XOR  AXM 
MOV  {DlrSeg]>0( 

MOV  pyiaxPlel>u. 

CLC 

REL2:  POP  ES 


;zsro  AX 

;is  OkSeg  assigned? 

;lf  not  asslyisd  go  on 

:get  memory  segment 
;piace  In  ES  register 
;releaso  funodtion  no 
;raleoae  memory  block 
;f  No  error  corainue 

;aet  barposMon  to 
;stvt  «  1  hnght  >  1 
^zero  to  register 
;sst  memory  bock  to  0 
;sel  maxfiee  to  0 
;clear  carry  flag 


G-in 


:rMtora  regittars 


POP  DX 
POP  CX 
POP  BX 
RET 

ENDP  RELEASE  MEM  DIR 


; - RMd  tht  Am  DOS  dMa  to  the  (Date]  string 

Input  -  None 

Ouqxit  -  flet  date  to  IDMe] 
raOC  READ  DATE 


PUSH 

Jx 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

BX.[FleHd] 

:laad  lie  hande 

CMP 

BX.0 

;isafle  open 

JZ 

DOS2 

:tf  notsadt 

MOV 

AX.S700h 

;gat  dde  stamp  funcL 

INT 

21h 

;gat  stamp 

JC 

DOS2 

;«  DOS  error  Exit 

MOV 

BX.DX 

;compoelte  to  get  day 

AND 

BX.0lFh 

:isolaleday 

MOV 

CL.5 

ishlt  counter 

SHR 

DX.a 

:monih  to  bits  0  to  3 

MOV 

AX.DX 

:compoMte  to  get  month 

AND 

AX.0Fh 

;lsolate  month 

MOV 

CU4 

;aNRcowter 

SHR 

DX,CL 

;year  to  bits  0  to  5 

AND 

DX.03Fh 

:lsolateyear 

ADD 

DX.80 

;add  base  year 

MOV 

CX.BX 

;store  day  In  CX 

;>•<— convert  to  ASCII 

;AX>>Mon.CX>day,DX«year 

MOV 

BX.OfMet  Date 

;ptr  to  Date  string 

CALL 

CONVERT  ASai 

;place  month  In  string 

MOV 

AX.CX 

;day  of  month  to  AX 

MOV 

BX.OINet  Date  3 

;ptr  to  day  section 

CALL 

CONVERT  ASai 

:place  day  In  Date  str 

MOV 

AX.DX 

:place  year  In  AX 

MOV 

BX,OIMetDate  6 

;ptr  to  year  section 

CALL 

CONVERT  ASai 

;place  year  In  Date  str 

DOS2:  CLC 

:clear  cany  Hag 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

- Convert  hex  number  Into  2  digit  ASCII  number. 

Input  -  AX  -  hex  number 
BX  «  ptr  In  [DMe] 
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Ou^  «  ^MO  byt«  numtMT  Into  [Dsto]  ttrino 


I  ; 

moc  OONVERT  ASai 
PUSH  AX  ' 
PUSH  BX 
PUSH  CX 
PUSH  DX 
CMP  AX.100 
JC  COV1 
XOR  AX>X 
COVI:  MOV  CL.10 
Div  a 
OR  AX.3Q30h 
COV2:  MOV  [BX]^ 
CLC 

POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  CONVERT  ASOI 
ENOP  READ  DAfE 


:lska2digknumtar? 
;!  yM  oontimw 
:mi  numbar  to  00 
;dMaor 
;AX/10 

:oo(M«rt  to  ASCII 
:placa  In  Data  sirina 
;clatf  cany  tag 


Sat  saareh  fie  name  variabiaa  for  fie  type  .NEC  or  .POS 
Input  «  AX  <•  none 

Output  «  Adiust  the  folawina  atrings  [FITyp].  (FlaNa)  and  [SaaiNa] 


PROC  SET  TYPE 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX.DS 

MOV 

ES.AX 

MOV 

BX.OIfset  Poatyp 

CMP 

BYTE  PTR  [Report], 0 

JZ 

STTI 

MOV 

BX,Otaat  Nagtyp 

STTi:  MOV 

DX.2 

CLD 

MOV 

Dl.0lf8at  FITyp 

MOV 

SI.BX 

MOV 

CX.DX 

REP 

MOVSW 

;ciaar  carry  tag 

MOV 

DI,Offaat  FlaNa  *  8 

MOV 

Si.BX 

MOV 

CX,DX 

REP 

MOVSW 

;ciaar  carry  tag 

MOV 

Dl.Offaat  SawNa  +  8 

;sat  ES  «  DS 

;ptr  to  PoaMva  atring 
;ia  k  a  POS  report? 

:»  YES  goto  STT1 

;«  NO  pir  to  NE6  atring 
:aava  byia  counter 
;auto  kic  ^  ft  Di 
ideatination  oointer 
;aouroa  poMar 
'4oop  counter  •  2 
;ino¥a  two  Worda 

;daatination  poiniar 
;aourca  pofcitar 
.loop  counter  -  2 
;inova  two  Words 

;deatination  pointer 


G-U3 


MOV 

SI.BX 

isource  pointer 

MOV 

CX.OX 

;loop  counter  -  2 

REP 

MOVSW 

;nK)we  tvM)  Words 

idMT  carry  tag 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENOP  SETJYPE 

• 

• 

» 

; - CotNit  number  of  ID‘s  and  find  tX)0’  10  numbar  in  tala  lie. 

Input  - 

assumes  *000’  10  number  is  after  al  10  tatta  Hnes. 

Output 

«  [Ranked]  -  True  tf  *000'  found. 

PROC  RND  ZERO 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

AXOS 

;assign  ES  *  OS 

MOV 

ESM 

XOR 

AXM 

MOV 

[MaxNo]^ 

;set  No  of  lO’s  -  0 

MOV 

(Rankad].AL 

;sst  [Ranked]  -  FALSE 

MOV 

IEOF1.AL 

;aet  EndOfFle  -  FALSE 

CALL 

GOTO  TOP 

;fle  ptr  to  BegOIFIe 

JC 

F2R8 

:exlt  on  DOS  error 

; — eat  default  10  string  to  ASCII  zeros 

MOV 

BX.OIfset  10 

;ptr  to  string  to  edit 

MOV 

0I.BX 

;ptr  fo  siring  to  W 

MOV 

AX.3030h 

;ASai  zeros 

MOV 

mM 

'.place  1st  tm  bytes 

XOR 

AH^ 

;zero  «  end  of  string 

INC 

01 

;advance  string  ptr 

INC 

01 

MOV 

[OI|^ 

'>^SCIi  0  and  hex  0 

: — locate  iO  number  In  the  data  He 

CALL 

PRINT  WATT  MESS 

;inform  user  of  search 

XOR 

BX.BX" 

;IO  counter  -  0 

FZRI:  CALL 

REAO  UNE 

;1  line  from  data  fie 

JNC 

FZR2  " 

;not  EndOfFle 

MOV 

AL.0FFH 

;m«fk  EndOIFIe  tnje 

MOV 

[EOFl^V. 

;<>  0  •  True 

PZR2;  MOV 

CX.3 

;loop  counter 

MOV 

OI.Onsat  10 

;ptr  to  10  number 

MOV 

SI.OffMt  FIBuf 

;pr'  h)  data  fie  line 

CLO 

wXo  01  and  Si 

REPZ 

CMPSB 

'.«e  the  bytes  -  ? 

JNZ 

PZR3 

;f  NO  goto  next  test 
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CAa  COPY  PERCNT 

;read  In  ranking  var 

JMP  short  FZRS 

.do  not  count  *000' 

; — is  this  an  10  data  line 

FZR3:  MOY  SI.OIfset  PIBuf 

:ptr  to  data  Be  line 

MOY  CX.3 

;loop  courier 

PZR4:  MOY  AU[SI] 

:gst  first  byte 

CMP  AL,'0’ 

;is  »  <  ASCU  0 

X  FZRS 

;l  Yes  read  nmt  line 

CMP  AL.‘:’ 

:isitadioii7 

JNC  FZRS 

:*  No  road  nwt  line 

INC  SI 

;pM  to  nmt  type 

LOOP  FZR4 

;check  neat  byte 

INC  BX 

;YES  ft  Is  an  ID  number 

; — is  this  the  last  line  ? 

FZRS:  XOR  AL>L 

'.zero  AX  raglBer 

CMP  AL.(EOF] 

:isEndOfFleTRUE? 

JZ  FZR1 

;ftlse  >  get  neat  line 

MOY  rMa)(No].BX 

;aave  number  of  ID’S 

CLC 

:clearcf  -  found 

FZRS:  POP  DX 

:roBora  raoisters 

POP  CX 

POP  BX 

POP  AX 

RET 

ENOP  RND  ZERO 

; - Copy  PofCnt  variaUos  from  data  bulftr  to  PwGit  vaiWslo  ttring. 

In^  -  Msumad  000  data  in  buftar  in  binary  byte  numbers 
Output  -  PerCnt  variables  set  (60  bytee  m^ 

PROC  COPY  PERCNT 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOY 

AL.0FFH 

;true  marker 

MOY 

[Rani(ed].AL 

;mark  [ranked]  TRUE 

MOY 

CX.ig2 

:max  no  of  variabies 

MOY 

BX,Olfset  FIBuf  4  3 

;beyond  000 

MOY 

Si.Oflset  PerCnt  *  S 

;pb  to  PerCnt  variabies 

GES1:  MOY  ALfBX] 

;raad  word 

CMP 

AL.0 

;ls  this  EndOfString? 

JZ 

GES5 

;lf  YES  then  stop  loop 

CMP 

AU” 

:is  ft  a  space  ? 

JZ 

GES2 

:f  NO  check  range  else 

; — isvalueanASCIIdigft?0-9 

CMP 

AL,D’ 

;is  value  <  ASCII  0 

X 

GES3 

:ff  Yes  then  error 

CMP 

AL,*:’ 

;is  value  a  digit  ? 

JNC 

GES3 

;V  NO  then  error 

; — save  cHglt  in  PerCnt  variable 
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MOV 

ISIJ^ 

:aava  rehja 

INC 

SI  ;ptr  to  nmt  variabla 

QES2:  INC 

BX 

;next  byte  in  buffer 

UOOP 

QES1 

:loop  urtt  CX  «  0 

DEC 

SI 

; — 80  tMD  bytt  ASCII  wwIMjIm  found? 

20  w  p«r  dim  and  4  dfen  -  80  two  digli  vaiWblM  or  leo  bytas 

QE8S:  MOV  AX.SI 

:gsl  wpoMar 

MOV 

BX.Offaal  Parent  4^  S 

;slarting  postion 

SUB 

AX.BX 

;AX  >  bytas  found 

CMP 

AX180 

:is  the  iangfh  correct 

JZ 

GES4 

;Z  «  Normal  ssdt  aisa 

QES3:  CALL  COPY  ERR 

‘.arror  massaga 

QES4:  CLC 

POP 

OX 

POP 

ex 

POP 

BX 

POP 

AX 

RET 

ENDP  COPY_PERCNT 

Input  « 

nona 

Oiaput 

-  nona 

PROC  COPY  ERR 

PUSH 

AX 

PUSH 

BX 

PUSH 

ex 

PUSH 

OX 

MOV 

AL,[Waming] 

;wsming  color 

MOV 

CL.[Color] 

;aava  originai  color 

MOV 

[Color]^ 

;aat  color 

MOV 

AX.0207h 

:row  3/Ooi  8 

CAa 

GOTOYX 

;aat  cursor 

CALL 

CSTR  OUT 

idispiay  warning 

db 

'  Lina  *000’  is  incorrect  length  for  4  * 

db 

'diminsions.  Press  Any  Key.  ',0 

MOV 

[Color],CL 

irastore  original  colo 

CALL 

ERR  SOUNO 

CALL 

HlOE  CUR 

CALL 

GET  WAR 

CALL 

CLEMt  PERCNT 

;2aro  parcanOa 

XOR 

AUAL  “ 

MOV 

{Ranked]^ 

;mark  fla  unranked 

POP 

OX 

POP 

ex 

POP 

BX 

POP 

AX 

RET 

ENOP  COPY_ERR 
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CODE 


— Open  the  aneMer  SLD  fie  tor  use  by  the  FeedBMk  program 
Input  •  name  of  fie  in  [FleNa] 

Output  >  Carry  flag  sat  >  crltk^  DOS  error. 


PROC  OPEN  SLOl 


PUSH 

§X 

PUSH 

CX 

PUSH 

DX 

PUSH 

ES 

CALL 

CLOSE  RLE 

;ctoae  «iy  open  fles 

; — locate  end  of  search  string 

MOV 

AX.DS 

MOV 

ESM 

MOV 

CX.68 

;max  length  of  string 

MOV 

BX,Ollset  Search 

;ptr  to  first  byte 

MOV 

AL.0 

;looldng  tor  EndOfStr 

KE1:  INC 

BX 

;ptr  to  next  byte 

CMP 

[BX].AL 

;V this  It? 

JZ 

KE2 

icontinue!  1  tound  k. 

LOOP 

KE1 

;if  NO  look  at  next  byte 

STC 

JMP 

SHORT  KE9 

;tf  no  match  exit 

; - backup 

unti  finding  the  last  \ 

KE2:  MOV 

CX.12 

MOV 

AU’V 

DEC 

BX 

CMP 

IBXJ.AL 

JZ 

KE3 

LOOP 

KE2 

STC 

JMP 

SHORT  KE9 

;if  no  natch  exit 

copy  fie  name  to  end  of  path 
KE3:  INC  BX 
MOV  DI.BX 
MOV  SI.OIf8et  FleNa 
MOV  CX.13 
CLD 

REP  MOVSB 

-.-—open  fie  and  save  fie  handle 
MOV  AX,Olfaet  Search 
CALL  OPEN 
X  KE9 
MOV  [FleHdl.BX 

; - aet  disk  drive  of  open  fie 

XOR  AX.AX 
MOV  [FleOr].AL 
MOV  BX,OffM  Search 
MOV  AX.{BX] 

CMP  AH.’:’ 

JNZ  KE8 


;destinatton  ptr 
;sourceptr 
;number  ^  bytes 
;aulo  Inc  SI  &  Dl 
;copy  al  13  bytes 

;plr  to  path  *  He  name 
;openl«eyfle 
;goto  main  menu  on  error 
;savedat8.fl  handto 

;zero  to  [OiskOr]  - 
:default  drive 

;ptr  to  path  flename 
;get  first  twro  bytes 
;is  a  drive  (^ven? 

;if  NO  vvi  use  default 
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SUB  AL.64 
X  KE8 
MOV  {FtoOrl.AL 
KEB:  CLC 
KE9:  POP  ES 
POP  DX 
POP  CX 
POP  BX 
RET 

ENDP  OPEN  SUX 


;convert  to  h«x  value 
;ir  error  continue 
;save  drive  of  fie 
;ciear  carry  flag 


—  Ctoee  the  data  fliee  ueed  by  the  Trial  program 
Input  -  None 

Output  -  None  (meeeage  displayed  and  carry  flag  eat  on  erroO 
Fie  handle  stored  In  [FleHd] 

Note:  Major  registers  saved. 


PROC  CLOSE  RLE 
PUSH  EOt 
PUSH  CX 
PUSH  DX 
XOR  MM 
MOV  BX.[FleHd] 

CMP  BX^ 

JZ  a02 
CALL  CLEAR  PERCNT 
MOV  lFleHdl,AX 
MOV  [MaxNo],AX 
MOV  [Ranked], AL 

MOV  [FleOr],AL 
MOV  [EOF1.AL 
MOV  AH.3Eh 
INT  21h 
JNC  CL02 

CL01:  MOV  AL.[Waming] 

MOV  [Color],AL 

MOV  AX.0207h 

CALL  QOTOYX 

CALL  CSTR_OUT 

db  '  Error  dosing  data  fie. 

MOV  AUINomnd] 

MOV  (Cdorl^U. 

CALL  HIDE  CUR 
CALL  ERR  SOUND 
CALL  QET~ CHAR 
STC  * 

CL02;  POP  DX 
POP  CX 
POP  BX 
RET 

ENDP  CLOSE  RLE 


;zero  to  AX 
;fle  hancfle 
;l8  the  fie  open? 

:e>dt  if  flto  closed. 

;8et  percentles  «  0 
;set  flto  handle  to  0 
;8et  totd  ID’S  to  0 
;set  iwiked  FALSE 
;8et  fie  diskdrive  -  0 
;set  EOF  -  FALSE 
idose  fie  function  no 
;ckm  data  fie 
;exlt  if  successful. 

;waming  color 
;set  color 
;row  2/Cd  12 
:setct«sor 
:display  warning 
Press  Any  Key  to  Continue.  '.0 
'.normal  color 
iset  color 


;8et  carry  flag  for  ret 
;re8tore  registers 


G-118 


- Chtck  to  trak*  wun  a  fwdback  flk)  is  in  the  (^rectory. 

input  -  None 

Output  -  Carry  Flag  if  no  fie  is  open. 


PROC  iS  SIX) 

PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
XOR  AX^ 

CMP  [MaxFIe]^ 
JZ  DTI 
JMP 

DTI:  MOV 
MOV 
MOV 
MOV 
CALL 
CALL 
db 
db 
MOV 
CAa 
CALL 
STC 

OT2;  POP  OX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  iS  SLO 


;save  registers 


;2ero  to  AX  registor 
neere  data  ties  found? 
;0  tnaans  NO  Mas 
.SKttV  found 


;set  carry  flag 
'.restore  registers 


DT2 

CL.(Colorl 
AL.  [Warning] 

[Coior]>L 

AX.020Bh 

GOTOYX 

CSTR_OUT 

‘  No  ties  found  in  dkectoryl 
to  Continue.  ‘,0 
[Color].CL 
HiOE  CUR 
GET  CHAR 


rwaming  color 
;aet  color 
;row  3/Col  12 
;set  cursor 
;display  warning 
Press  Any  Kay  ‘ 

;restore  original  color 


- inform  the  user  the  flto  is  being  opened. 

input  s  None 
Output  -  None 


PROC  READ  MESS 
PUSH  JX 
PUSH  CX 
MOV  CL.[Color] 

MOV  AL.[WSming] 

MOV  [CdO^^tL 
MOV  AX.020gh 
CALL  GOTOYX 
CALL  CSTR  OUT 
db  ’  Reading  Fie  ’.0 
MOV  (Cdorl.CL 
CALL  HiDE  CUR 
POP  CX  " 


;aave  orig.  color  attr 
;wBmlng  color 
;sei  color 
;row  3/Col  12 
;sel  cursor 
;display  warning 

;restore  orig.  color  att 
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POP  AX 
BET 

ENDP  READ  MESS 


ChMT  th«  tecond  Hm  of  the  meu  boix 
Input  -  None 
OUput  «  None 


PROC  CLEAR  MESS 
PUSH 
PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  CL.[Coior] 

MOV  AL.IMenu] 

MOV  (Coior]^ 

MOV  AX.0207h 
MOV  BX.024Eh 
CAa  CLEAR  WINDOW 
MOV  AX.02d^ 

CALL  60T0YX 
CALL  CSTR  OUT 
db 
MOV 
POP 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  CLEAR  MESS 


:eaMe  orlg.  color  altr 
;eet  menu  color 
;change  color  attrtMJte 
:rQw  2  end  column  7 
;ro<e  2  and  column  78 
idetf  out  old  ntessage. 
-.rcnf  2.column  7 


'Press  ^  <Enter>  key  to  open  the  MgMIghled  fle.'.0 
[Coior].CL  ;re8tore  orio.cok)r  attr 

OX 


; — Read  a  line  from  the  data  fie  into  the  128  byte  memory  buffer. 
Input  -  fie  handle  in  [FleHdl 
Output  «  sets  [EOF]  <>  0  vvhen  EndOfFlie  is  reached. 

Carry  flag  >  fie  doees  or  fie  ptr  already  at  EndOfFle. 
NOTES: 

Cvrege  returns  are  convert  to  hex  0. 

Only  the  kwver  eet  ASCII  characters  are  placed  in  the  buffer. 

No  control  codes  etc. 

Only  the  first  1S2  bytes  of  the  line  are  saved  in  the  buffer  but  the 
procedure  wR  keep  reading  unti  EndOfFle  or  an  OOh  is  reeched. 

PROC  READ  UNE 
PUSH  JX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
PUSH  Si 
XOR  AX^ 

MOV  Sl.Olfest  FIBuf  ;mBrfc  poeftion  in  buffer 

G-120 


MOV 

BP.Offaat  PIBuf  •)>  191 

MOV 

BX.[FlaHd] 

CMP 

BX,AX 

JZ 

REE2 

CMP 

[EOFJ^L 

JNZ 

REES 

: — raadi 

byte  from  data  lla 

MOV  CX.1 

REE1:  MOV  AX.3R)0h 
MOV  DX.8I 
INT  21h 
JC  REES 
CMP  AX.CX 
JNZ  REES 
MOV  AL.(SI1 
CMP  AL.0Dh 
JZ  REE4 
CMP  AL.128 
JNC  REE1 
CMP  AL.S2 
JC  REE1 
CMP  BP, SI 
JC  REE1 
INC  SI 


JMP 

SHORT  REE1 

REE2:  STC 

JMP 

SHORT  REES 

REES;  MOV 

ALOFFh 

MOV 

|EOFl,AL 

REE4;  XOR 

AUM. 

MOV 

1SI1.AL 

ac 

REES;  POP 

SI 

POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  REAO_UNE 


;mark  and  of  bulfsr 
;fle  hWKi* 

;l«afl«  opam? 

;Vnat  Exk 
;ia  ptr  at  andoMe 
;VyaaExll 

:raad  i  byia 
:iaad  tia  function  no 
:bulfar  ptr  to  OX 
;gotbyta 
;ond  of  lla? 

:dld  It  road  a  byta? 
;inothanEndOfFla 
:gatcharlnAL 

;ia  I  tha  andoMna  ? 

:KYESa)dt 
;l8  8thblton? 

:lf  yaa  read  naat  char 

;ia  It  a  control  char? 
;lf  yaa  road  naat  char 
;labulfarful? 
yaa  road  urti  OOh 
;lf  no  advance  buffer 

:ptr  &  gat  another  char 
;aat  carry  Sag 
;exlt  fMahad  fla. 

:non  zero  «  and  of  fla 
;mort(  andoffla  trua 
;placa  andofllna 
;ln  data  fla  buffar 
;ciaar  carry  flag 


;Pfaca  tha  fla  pointar  at  tha  bagMng  of  tha  opan  fla. 

Input  «  nona 

OiXput  -  Carry  Hag  -  arror 
PROC  GOTO  TOP 
PUSH  M 
PUSH  BX 
PUSH  CX 
PUSH  DX 

XOR  AX,AX  ;zaro  raglatar 

MOV  BX.IFIaHd]  ;iaaflaopan? 

CMP  AX.BX  ;lf  not  then  exit 
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JNZ  TOPI 
8TC 

JMP  8HOfrrTOP2 


;l  optn  goto  mki  tMt 

MMttnorlao 

;fKlon«nor 


; — pliMftoPOinltotlwtMglnningofth»«« 


TOPI:  MOV  CX^ 
MOV  OKM 
MOV  AX.4200h 
Mr  21h 
X  TOP2 
XOR  AUO. 
MOV  (EOPl^U. 
CLC 

TOP2:  POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENOP  GOTO  TOP 


;MtollMt  •  0 
jttoRMt  »  0 
AM  DOinlif  no. 
:MttoboQ.  offlo 
:wilinor. 
;2arptoi«ai«tr 
;Mt  EndOFIt  -  FMm 


;Chtcks  IFNOr]  to  mikt  aura  thort  it  room  for  number  of  bylee  in  AX 
Input  -  (Ajq  •  number  to  bylae  needed 

eeeumee  (FleOr]  le  pointing  the  deeirad  drive 
0  ->  defauii.  1  -  A,  2  -  B.  etc 
Output  s  Carry  flag  «  I  not  enough  room 
PROC  IS  FULL 


PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

PUSH 

BP 

MOV 

BP^ 

;sava  bytee  needed 

MOV 

DL.[FlaOr] 

;gat  Be  drha  no. 

MOV 

AX.3e00h 

;(fle  ’pace  function 

INT 

21h 

;got  disk  apace 

CMP 

AX.0FFFFh 

;is<Mva¥Mki? 

JZ 

ISF3 

;ff  NO  SMt  error 

CMP 

BX.BP 

jMOl  duster  >  bytes 

JNC 

ISF4 

;yas  OKI  Ids  of  room 

MUL 

BX 

;gst  avalefaia  sectors 

CMP 

OX,BP 

:isa«alsaciars/66000 

yj^ 

vTlw 

ISF4 

lotaalar  then  byiM  ? 

CMP 

AX.BP 

;is  SMBi  aeclors>  bytes 

«inw 

iSF4 

;ff  Yes  Ids  d  room 

MUL 

CX 

;gst  avaibbie  bytas 

CMP 

DX.BP 

;isavBlbytee/B6C00 

JNC 

ISF4 

;grsalarlhsnb|^? 

CMP 

AX.BP 

;iB  aval  bytes  >  bytes 

JNC 

ISF4 

;VYESaKltOKI 

CALL 

FUa_ERR 

;olaa  Worm  user 

ISF3:  STC 

JMP 

SHOFT  ISF5 

ISF4:  CLC 
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I8PS:  POP  BP 
POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 


Input  •  nonn 
OuBNJt  •  ram 


PROC  Pua  BIR 

GALL  Clear  message 

MOV  ALiyvimingl 
MOV  CUICdor] 

MOV  tCoior]>U. 

MOV  AX.020gh 
CALL  QOTOYX 
CAU  CSTR  OUT 
db  '  Not  tnough  DW(  8| 
db  '  Pratt  Any  Kay. ‘,0 
MOV  (Color).CL 
CALL  HIDE  CUR 
CAa  ERR'kXINO 
CALL  GET' CHAR 
RET 

ENDP  FUa  ERR 
ENDP  IS  FULL 


^wtininQ  odor 
;t«ra  originti  odor 
:tttodor 
maS/CdS 
:taicuraor 
;(Siplty  warning 
to  tawa  tht  rariidr^’ 

;raott)ra  originai  odor 


.CODE 

PROC  GET  PATH 
PUSH  “AX 
PUSH  BX 
PUSH  CX 
PUSH  OX 

CMP  BYTE  FTR  IP«h].0 
JNZ  QB>1 

;--~-S}et  dafadt  driva 
MOV  AH.19h 
INT  21h 
ADD  AL,66 
MOV  AH.':’ 

MOV  SI.0flMtP8lh 
MOV  [Si].AX 
INC  SI 
INC  Si 
MOV  AU-X' 

MOV  [Si].AL 
INC  Si 

t*~— gti  oaiaun  pain 
MOV  AH,47h 
MOV  DL.0 
INT  21h 

GEP1;  CAa  EDIT  PATH 


;it  lha  Path  amply 
;*  NO  than  ditplay  Path 
;f  YES  gat  dafadt  path 
;dafadt  hjnctlon 
;gat  dafauR  driva 
;oonMart  to  cap  letter 
:plaoa in  pam 
;plrto  path)  airing 
;placa  dNa  iaitar 
;lnpalh. 

;ptr  to  3id  byte 
:daca  bacfcalaah  in 
;3id  byla  Of  aMng 
;poira  to  4th  byte 

;gat  currani  path 
;on  dafadt  dr^ 
;g8tpatti 
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FOP  OX 
FOP  CX 
POP  BX 
POP  AX 
RET 

ENDP  GET  PATH 


Input  «  Int  putt)  tniarad  or  dolault  path  In  [P«h] 
Output  •  cunant  path  In  Input 


PROC  EDIT  PATH 
PUSH  ~AX 
PUSH  BX 
PUSH  CX 
PUSH  OX 
MOV  BX.OS 
MOV  ES.BX 
CALL  PATH  TO  INPUT 
CALL  PATH'MESS  TOP 
CALL  PATH'MESS'BTM 
EDT1:  MOV  AXOIOSh  ~ 
CALL  PATH  EOrrOR 
JC  EDT2  " 

CALL  CHECK  PATH 
JC  EOT1 
JMP  SHORTEOT3 
EOT2:  CALL  MENUJNSTRU 
STC  * 

EDT3;  POP  OX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENOP  EOrr  PATH 


PROC  PATH  MESS  TOP 
PUSH  TSX 
PUSH  CX 
XOR  AX^ 

CALL  MENU  BOX 
MOV  CL.[Cdor] 

MOV  AX.0206h 
CALL  GOTOYX 
MOV  AUpyianu] 

MOV  [Cdor]^ 

CALL  CSTR_OUT 
db  'Entar  ttia  directory  poth.’.0 
MOV  [Color].CL 
POP  CX 
POP  AX 


;moMe  Path  str  to  Input 

;adit  mataaga 

.aditthlaflaid 
:e)dt  on  <Eac>  kay 
:Mvaildaavapoth 
;V  Not  vaNd  loop 
:aKltpadiOKl 

.draw  bottom  boK 
;carry  lag  -  Eac  kay 
;reatora  raglatare 
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RET 

ENOP  PATH_ME8S_TOP 


: - nmoM*  al  tiut  lalitre  from  tha  flaid  and  conMait  Mo  and  ASCIIZ  airing 

Inpu  *  Nona 
Output  -  Nona 

NolK  fWda  are  14  byiaa  long  tjut  tha  iaat  tryre  la  aRwya  a  hex  0 
tharaiore  tha  noma  iaida  con  only  hare  13  lattare. 

PROC  FILTER  FIELD 


PUSH 

fSt 

PUSH 

BX 

:aawa  original  atr  ptr 

PUSH 

OX 

PUSH 

OX 

MOV 

BX.  OSaat  Input 

iDoIntar  to  kiout  atr 

MOV 

CX.12 

;aMng  langth  •  1 

TRI1:  MOV 

AL.*A’ 

:1a  etiamctar  laaa  than 

CM* 

[BX1.AL 

;thalottor*A*? 

JNC 

TRI3 

;V  yaa  ramowa  ctiaractar 

TRI2:  CALL 

DELETE  CHAR 

:ahlt  airing  Mt 

DEC 

BX 

'.chack  aama  byla  again 

JMP 

SHORT  TRM 

TRI3:  MOV 

ALT 

:ia  chamclar  graatar 

CMP 

AUIBXI 

:thanlaitar7? 

X 

TR12 

;f  yaa  ramoMa  chamclar 

TRM:  INC 

BX 

;^tonaxt  byla 

LOOP 

TRI1 

;chad(  naod  byta 

: - oonvorttiallngapooaatoheKO. 

MOV 

CX,13 

;loop  counter 

MOV 

BX.Onaat  Input  12 

;plr  to  UntByta 

MOV 

AX.20h 

;AH  >  haKO  AL  -  apace 

TRI5:  CMP 

AL.IBX1 

;ia  chv  a  <apaca>  ? 

JHZ 

TRIG 

;l  noaxR. 

MOV 

IBX1.AH 

;marl(  aa  and  of  airing 

DEC 

BX 

:ptrtola8tbyta 

LOOP 

TRIG 

;loop  unti  bag  of  atr 

TRIG:  POP 

OX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

; - dalata  o  charactor  at  tha  curaor 

PROC  DELETE  CHAR 

PUSH 

AX 

PUSH 

BX 

;aava  original  atr  pir 

DEPI:  MOV 

AX.(BX] 

;raod  ptr  BX  and  BX-t-1 

CMP 

AH,0 

;la  K  the  and  of  ati? 

JZ  OEP2 

:l  yaa  than  dona. 

MOV 

[BXI.AH 

:placa  BX-t-1  in  BX 

INC 

BX 

;polnt  to  next  byte 

JMP 

SHORT  DEPI 

toop  unll  and  of  atr. 

DEP2;  MOV 

AH,” 

;piaca  a  <apaca>  at 
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MOV 

[BX]>tH 

;end  of  the  string. 

POP 

BX 

;reetore  original  ptr 

POP 

AX 

RET 

ENDP  OaETE  CHAR 
ENOP  RLTERJRELO 
» 

; - IfMlnictiont  for  onlorino  tho  fMih  nanw. 

hiput  -  Nona 
Ouput  -  Nona 

PROC  PATH^ME8S_BTiyi 


PUSH 

AX 

:save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AX.1500h 

:row  2l.eolumn  o 

CALL 

MENU  BOX 

:(^8wmenuboK 

MOV 

AX.16dAh 

:row  22.coiumn  13 

CALL 

QOTOYX 

MOV 

AL.[Coior] 

:get  current  color 

MOV 

CL,AL 

;storeinCL 

MOV 

AL,[Menu] 

;set  color «  menu 

MOV 

[Cdor]^ 

CALL 

CSTR  OUT 

db 

Type  the  complete  path  name  for  the  direchxy  to  be  ai 

MOV 

AX.1708h 

;row  23, column  13 

CALL 

GOTOYX 

CAa 

CSTR  OUT 

db 

'Press  the  <Enter>  key  to  continue  or  the  <Esc>  key 

db 

the  Menu.',0 

MOV 

[Color], CL 

;reetore  orig.  color 

POP 

OX 

;r88tore  registers 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  PATH_MESS_BTM 


; - Copy  path  ASCIIZ  string  in  [Path]  to  [Input]. 

Infxt  -  nono 
Output »  none 
AX-OX  register  saved. 

PROC  PATH  TO  INPUT 
PUSH  JX  " 

PUSH  BX  ;aave  registers 

PUSH  CX 
PUSH  DX 

: — A  [input]  with  68  spaces 

MOV  AX.DS  -.Make  ES  -  DS 
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MOV 

E^AX 

MOV 

CX.e7 

;max  number  of  chws 

MOV 

BX,Olfset  input 

;poinier  to  ASCIIZ  sir 

MOV 

AL,” 

;spaoe  Al  register 

MOV 

[BX]^ 

:0  to  first  byte  of  str 

MOV 

OI.BX 

;DI  •  poiraer  to  next 

INC 

Dl 

-.byte  of  string 

MOV 

SI.BX 

:Si  -  polntsr  to  str 

CLD 

;auto  Inc  Dl  and  St 

REP 

MOVSB 

:!■  afrfng  vrfih  0‘s 

; — copy  current  [path]  to  [input] 

MOV 

OI.OIIaat  input 

fj  m  1^1  m  ^tn  ■■ 

•OvCOsHDOew  ORbbI 

MOV 

SI.Olfset  Path 

^source  oBset 

CLD 

;aulo  inc  Dl  and  Si 

EDTO:  MOVSB 

:oopy  one  byte 

CMP 

BYTE  PTR  [Sl].0 

:is  next  char  -  0 

JNZ 

EDTO 

ac 

POP 

DX 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  PATHJOJNPUT 


; —  Q«t  an  ASCtIZ  string  input  from  the  kaytXMud. 
input  «  AX  -  RoMf/Cdumn  posltiQn  on  the  screen 

pnput]  must  contain  the  string  to  be  edited  before 
cdling  this  subroutine. 

[insert]  <>  0  pieces  the  editor  in  the  insert  mode. 
Output  -  AL  -  Ext  'Char' 

ASCIIZ  string  at  [Input]  in  the  data  section. 

BX-OX  register  saved 

Note:  the  fdow  register  hold  the  folowing  local  variabies. 
AL  -  Input  Charadar 
BX  «  pfr  in  [Input]  string 
GX  -  Rosv/Col  cursor  position 
DX  -  Star^  Row/Col  poatton 

PROC  PATH  EDITOR 
PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  DX>SX 
CALL  GOrOYX 
MOV  BX.OIIaot  Input 
MOV  AX.BX 
CALL  DSTR_OUT 
; — fine  first  space  in  string 
MOV  Si,0 
PATA:  INC  Si 
CMP  SI.67 


;save  registers 


;save  row/oohjmn  in  DX 
;eot  cursor  posUon 
;plr  to  [input]  str. 
;[input]  ptr  to  AX 
;Disp^  blanks 

;2eroto  Si 
:ptr  to  next  char 
;stop  I  no  spaces 
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JZ  PATB 

CMP  iYTE  PTR  |BX  4  81].' ' 
JNZ  PATA 
PATB:  MOV  CX.SI 
ADO  CX.DX 
ADO  BX.SI 

; - toglnnlng  of  input  toop 

GALL  PATH  INSEfTT 
PATD:  MOV  AX.^ 

CALL  QOTOYX 
CALL  QCT_TEXT 

; - Rolumkiy 

CMP  AUOOh 
JZ  PATIO 

; - It  II  any  othtr  oontral  chtractM? 

CMP  AUlBh 
JNC  PATS 

CALL  PATH  CONTROL  CHAR 
JMP  SHORt  PATO 

; - is  k  the  <Ese>  kty  ? 

PATS:  STC 

JZ  PATH 

; - filar  urnMantad  charadart 

CALL  CHAR  RLTER 
JC  PATO 
chack  the  kwart  mods 


;aally  vakit 

:it  this  a  apace  ? 

;tf  NO  chack  nasd  chw 
lofftatloCX 
;rowr/cak«nn  ptr  to  CX 
advance  BX  poMar 

diapiay  biaart 
:curaor  poation  to  AX 
;aal  cursor  pTTt¥Tr* 


;ia  k  a  <ratum>  ? 

;lyaaaKk. 

:ia  k  a  control  char? 

;Jfnp  «  not  corkroi  char 

;handel  control  char 
;gat  next  chwacter 

:aat  carry  Sag 
;mA  on  <Eac>  key 


:carry  flag  -  not  char 


PAT7:  MOV  AH.IIn8ert| 

CMP  AH.0 

JZ  PATB 

CALL  8H!Fr_STR_RT 

; - place  the  character  in  the  pnput] 

PATB:  MOV  IBX].AL 

MOV  AX.BX 
CALL  OSTR_,OUT 

; - see  I  'end  of  Mring'  is  true. 

XOR  AH>^H 
CMP  AH.(BX-i-1] 

JZ  PATO 
INC  BX 
INC  CX 
JMP  PATO 
PATIO:  CLC 
PATH:  POP  OX 
POP  CX 
POP  BX 
RET 


string. 


;get  Ineertflag 
;ia  insert  OFF?  •  0 
;8Mp  tf  turned  off 

;move  rest  of  str  right 

;place  char  In  [Input] 
:prt  rest  of  string 
:display  string  from 


;is  ’and  of  string’  ? 
:yes«do  not  move  cursor 
'jittmtot  [input]  ptr. 
;advBnce  cursor 
;l  not  continue  Input 
;clear  carry  flag 


: - Display  the  status  of  the  [Insert]  flag  to  screen. 

Input  -  None 
Output  -  None 
AX  •  DX  registers  saved 
PROC  PATHJNSERT 
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PUSH 

AX 

{save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

DL.(Color] 

{save  current  color 

MOV 

AL.(HIJel 

{sat  color  for  Insert 

MOV 

(Color]>L 

•tDVlQ* 

MOV 

AX.(M20h 

'.row  od 

CAU. 

QOTOYX 

{set  cursor 

XOR 

AXM 

{zero  AX 

ADO 

AU[lneert] 

{gat  Insert  teg 

JNZ 

PAHI 

{<>  0  -  Insert  mode 

CALL 

CSTR  OUT 

{dear  Insert  from 

db 

'  "*.o 

{the  screen. 

JMP 

SHORT  PAH2 

;sKk. 

PAHI;  CAIL  CSTB_OUT 
db  '<ln86rt^>'.0 
PAH2:  MOV  {Coior].DL 
POP  DX 
POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  PATH  INSERT 


:Mnd  the  fdoNving 
;8tring  U)  the  screen 
{restore  current  color, 
{restore  registers 


{ - Check  Control  Chareclers 

Input  AL  «  Control  Charecter 
BX  «  ptr  In  (Input]  string 
CX  -  Row/Col  cursor  position 
DX  »  Stsr^  Row/Col  position 
Output  jumps  beck  to  get  another  character. 
PROC  PATH  CONTROL  CHAR 


{ - Backsp 

lace  key 

CMP 

AUOBh 

{Is  It  a  Backspace  key 

JNZ 

CNNO 

{V  not  continue. 

CALL 

BACKSPACE 

{dd  char  left  d  cw. 

{ — -Jnsertkey 

CNNO:  CMP  AL.16h 

{Is  It  the  Insert  key? 

JNZ 

CNN1 

{V  not  continue. 

PUSH 

AX 

{save  Char 

XOR 

AXJOC 

'.zero  AX 

ADD 

AL,[lnsert] 

{get  Insert  teg 

JZ 

CNNOA 

{VzeroKtrtip 

MOV 

AIJSH 

{make  teg  -  0 

JMP 

SHORT  CNNOB 

{rapMceteg 

CNNOA:  DEC  AL 

{make  teg  -  FFh 

CNNOB:  MOV  (lnsart]JU. 

{replacateg 

CALL 

PATH  INSERT 

{display  Insert  statu 

POP 

AX 

{restore  Char 

{ - Home  key 

CNN1:  CMP  AL.1h 

{Is  It  the  Home  key? 

JNZ 

CNN2 

{If  not  continue. 
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MOV  BX.OflMt  Input 

MOV  CX.DX 

; - End  toy 

CNN2:  CMP  AL.6h 

;is  it  tha  End  kay? 

JNZ  CNN3 

CALL  ENO.STR 

:lf  not  cortinua. 

: - IMtMtoy 

CNN3:  CMP  AUOTh 

;iBitthadalatakay? 

JNZ  CNN4 

;l  not  conttrsia. 

CALL  DELETE 

;dalata  char  at  cursor. 

; - MlarroMf  toy 

CNN4:  CMP  AL.13h 

;ls  It  a  lalt  anowr  kay 

JNZ  CNN6 

;>  rwt  cortinua. 

CMP  CXOX 

:baglnnig  of  tha  string? 

JZ  CNN6 

lyaa  «  of  Una 

DEC  BX 

DEC  CX 

;ao  loop  wB  condnua. 

; - right  anow  toy 

CNN6:  CMP  AU4 

;ls  K  Rt  AiroNV  key? 

JNZ  CNN8 

;lf  not  Jump. 

XOR  AHJVH 

CMP  BYTE  PTR  [BX+ll.O 

:1s  'and  of  string*  ? 

JZ  CNN8 

;lf  -  0  no  right 

INC  BX 

INC  CX 

;advanca  pointar 

CNN8:  RET 

ENDP  PATH_CONrROL_CHAR 

» 

; - mov*  cursor  to  and  of  string 

PROC  END  STR 

PUSH  “ax 

CON2A:  MOV  AX.[BX] 

:chack  for  and  of  str. 

CMP  AH.0 

;zaro  -  and  of  string 

JZ  CON2B 

;rst  on  and  of  string 

INC  BX 

;advanca  poMar 

INC  CX 

JMP  SHORT  CON2A 

.advanca  cursor 

CON2B:  POP  AX 

RET 

ENDP  END.STR 

1 

; - Inaait  a  charactar  at  tha  cursor. 

PROC  SHIFT  STR  RT 

PUSH  AX 

;aava  nsw  charactar 

PUSH  BX 

:sava  str  poinlar 

MOV  AL,IBX] 

;load  char  to  ba  movad 

INC  BX 

;ptr  to  tha  nsBd  char 

SH11:  MOV  AH,[BX] 

;load  nssct  char. 

CMP  AH.0 

;ls  R  tha  and  of  sti? 

JZ  SHI2 

;V  yaa  than  Exk. 

MOV  [BXl^SL 

;iast  char  in  tha  str. 

MOV  AL.AH 

;noxt  chw  to  last  char 
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INC  BX 

JMP  SHORT  SHI1 
SHI2;  POP  BX 
POP  AX 
RET 

ENDP  SHIFT  STR  RT 


;ptr  for  now  imt  char 
;loop  until  and  of  str. 
;raalora  atr  polniar 
;raatora  orlgkial  ptr 


; - dalata  a  charactar  at  tha  curaor 

PROC  DELETE 


PUSH 

AX 

PUSH 

BX 

:aava  Original  atr  ptr 

DELI:  MOV 

AX.(BX1 

iraadptrBXandBX^ 

CMP 

AH.0 

:1a  K  tha  and  of  atr? 

JZ  1 

DEL2 

;i  yaa  than  dona. 

MOV 

[BXl>kH 

;placaBX<i^1  InBX 

INC 

BX 

:polntto  naat  byta 

JMP 

SHORT  DELI 

:loop  untt  and  of  atr. 

DEL2:  MOV 

AH.” 

‘.placa  a  <apaoa>  at 

MOV 

(BX1.AH 

;and  of  tha  atring. 

POP 

BX 

iraatora  orktinal  otr 

MOV 

AX.BX 

;atr  pointar  to  AX 

CALL 

DSTR  OUT 

;dlapi^  atring 

POP 

AX 

RET 

ENDP  DELETE 

1 - dal«ta  a  charactar  to  tha  Mt  of  tha  curaor 

PROC  BACKSPACE 

PUSH 

AX 

MOV 

AX,Offaat  Input 

;ia  tha  curaor  at  tha 

CMP 

AX.BX 

;baginnig  of  tha  atring? 

JZ 

BAS 

:tf  yaa  Ignor  backapaca 

DEC 

BX 

:llna  pointar  Mt 

DEC 

CX 

;curaor  Mt 

PUSH 

BX 

;aava  original  atr  ptr 

BA1:  MOV 

AX.[BX] 

;raod  ptr  BX  and  BX+ 

CMP 

AH.0 

;la  K  tha  and  of  atr? 

JZ 

BA2 

;V  yaa  than  dona. 

MOV 

IBX1.AH 

;placa  BX+I  InBX 

INC 

BX 

;poM  to  naKt  byta 

JMP 

SHORT  BA1 

:loop  until  and  of  atr. 

BA2:  MOV 

AH.” 

;ma¥a  <apaca>  to  AH 

MOV 

[BX1.AH 

;placa  in  iaat  poakion 

POP 

BX 

;raatora  originai  ptr 

MOV 

AX.CX 

'.row/cohann  to  AX 

CALL 

QOTOYX 

;aat  curaor  poaftion 

MOV 

AX.BX 

;atr  pointar  to  AX 

CALL 

DSTR  OUT 

;<Sapiay  atring 

BA3:  POP 

AX  " 

RET 

ENDP  BACKSPACE 
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; - FIttr  out  ufwwanted  ASCII  characters  arxl  capkallza  letters 

Input  -  Char  In  AL 

Output  -  Carry  Flag  «  not  a  good  character,  get  anothert 

PHOC  CHAR  RLTER 

AND  /5,7Fh 

;make  0  •  127  ASai. 

CMP  AL.*’ 

;is  It  a  control  char? 

JC  CHARI 

:lf  yes.  get  next  char. 

CMP  AU’a’ 

;is  char  a  smal  letter 

JC  CHARO 

;V  not.  Ok  continue. 

AND  AL.0DFh 

;change  to  capital  char 

CHARO:  CLC 

:clear  cany  flag 

CHARI;  RET 

ENDP  CHAR  RLTER 

ENDP  PATH"EDrrOR 

; - Check  [Input]  to  see  V  the  path 

is  Ok! 

Input  -  AX  -  Assumed  [Iriput] 

hold  a  Path 

Outpik  >  Carry  flag  Is  not  a  valid  path  name 

AX-DX  register  saved. 

PROC  CHECK  PATH 

PUSH  AX 

PUSH  BX 

:save  registers 

PUSH  CX 

PUSH  DX 

MOV  AX,DS 

;Make  ES  «  DS 

MOV  ES.AX 

; - remove  all  leading  spaces 

MOV  BX.OIfset  Input 

;ptr  to  InptX  string 

CHEO;  CMP  BYTE  PTR  [BX].*  * 

;i8  leading  space  ? 

JNZ  CHE1 

;if  NO  conthme 

MOV  CX.68 

;el8e  remove  space 

MOV  DI.BX 

;olfset  to  1st  byte 

MOV  SI.BX 

INC  SI 

;olfset  to  2nd  byte 

CLD 

;auto  Inc  Dl  and  SI 

REP  MOVSB 

;shlft  ikie  left 

JMP  SHORT  CHEO 

;check  for  leading  space 

; — convert  first  ASCII  space  to  a  hex  zero  EndofStr  marker 

CHE1:  MOV  CX.68 

;max  string  length 

MOV  BX.OffM  Input  - 1 

CHE2;  INC  BX 

CMP  BYTE  PTR  [BX].’  ’ 

;ls  It  a  space? 

JC  CHE4 

:exit  tf  char  <  ’  ’ 

LOOPNZ  CHE2 

;lsNOIoop 

; - remove  tialing  back  slash 

DEC  BX 

;ptr  to  last  char 

CMP  BYTE  PTR  [BXJ.’V 

;is  it  a  beck  slash  ? 

JZ  CHE3 

;if  Yes  remove  from  str 

INC  BX 

;lf  NO  leave  in  str 

; - place  :  after  drive  name? 
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CHE3:  MOV  AX.BX 

;ptr  in  str  to  ax 

sue  AX.Ofisat  Input 

;atring  length  in  AX 

JZ  CHE4 

;V  OK!  goto  next  test 

CMP  AX.3 

;is  lees  than  3? 

JNC  CHE4 

;l  NO  goto  next  test 

MOV  AX.003Ah 

;3Ah  - 

MOV  BX.Ofr8at  input  1 

:ptr  to  2nd  byte 

MOV  [BX]^ 

INC  BX 

CHE4:  MOV  (BX].CH 

;mark  EndofStg  *  0 

; — is  the  path  valid 

CALL  IS  PATH 

;is  path  valid  ? 

JNC  CHE5 

:NOT  carry  -  OKI 

CALL  PATH  ERROR 

:display  error  message 

STC 

;set  cf  -  error 

JMP  SHORT  CHE7 

; — save  valid  path  string  in  [Path] 

CHE5:  MOV  Sl.Offset  Input 

;source  offset 

MOV  DI.Offset  Path 

:destSiMion  offset 

CLD 

;auto  inc  Di  and  Si 

CHE6:  MOVSB 

:copy  one  byte 

CMP  BYTE  PTR  [Sl].0 

:is  next  char  -  0 

JNZ  CHE6 

;copy  bytes 

XOR  AL.AL 

MOV  [DI].AL 

;zero  EndOfString 

ac 

;clear  carry  flag 

CHE7:  POP  DX 

POP  CX 

POP  BX 

POP  AX 

RET 

; - Is  this  a  Valid  path? 

Input  -  ASCIIZ  drive/directory  string  in  [InptX] 

Output  «  carry  flag  in  not  a  valid  path 

AX  •  DX  registers  saved 

PROC  IS  PATH 

PUSH  AX 

;save  registers 

PUSH  BX 
PUSH  CX 
PUSH  DX 
copy  string  to  [Search] 


MOV 

Sl.Offset  input 

;source  offset 

MOV 

Dl.ORset  Search 

;destination  offset 

CLD 

;auto  inc  Di  and  SI 

ISP1:  MOVSB 

;copy  one  byte 

CMP 

BYTE  PTR  [Sl].0 

;is  next  char  «  0 

JNZ 

ISP1 

;copy  bytes 

; - place  *  at  end  of  string 

MOV 

AX.-V 

MOV 

[Di].AX 

INC 

DI 
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INC 

Dl 

MOV 

AX,**’ 

MOV 

Pll^ 

INC 

Dl 

INC 

Dl 

XOR 

AX>0( 

MOV 

[Dl]^ 

; - M«  1  pMh  It  OK! 

MOV 

DX.OIfBet  Search 

;ptr  to  ASCIIZ  string 

MOV 

AX.4E00h 

:Flnd  function  no. 

MOV 

CX.0010h 

:directory  search 

INT 

21h 

;doaearch 

CMP 

AL,3 

;is  path  BAD? 

CLC 

idear  carry  tog 

JNZ 

iSP2 

:OK!  InotS 

STC 

;sat  error  tog 

I8P2:  POP 

DX 

;re8tore  regiaters 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

ENDP  IS_PATH 

; - Display  Path  error  message. 

Input  ■  None 

Output 

-  None 

AX  •  DX  registers  saved 

PROC  PATH  ERROR 

PUSH 

AX 

;save  registers 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AU” 

;replace  hex  0  with 

MOV 

IBX1.AL 

;a  space 

MOV 

CU[Coior] 

;save  current  color 

MOV 

AL,{Waming] 

;wamlng  color 

MOV 

(Coior],AL 

;set  color 

MOV 

AX.0222h 

;row5  Col  7 

CALL 

QOTOYX 

;set  cursor 

CALL 

CSTR  OUT 

;display  warning 

db 

Error  Invalid  path.  Press  Any  Key.  '.0 

CALL 

HIDE  CUR 

CALL 

ERR  SOUND 

CALL 

GET" CHAR 

;wait  for  keyboard  key 

MOV 

AL.[Menu] 

;menu  color 

MOV 

(Color]>SL 

;sel  color 

MOV 

AX,0222h 

;row5  Col  7 

CALL 

GOTOYX 

;set  cursor 

CALL 

CSTR_OUT 

;cieer  warning 

db 

t 

’.0 

MOV 

[Coior].CL 

;restore  original  Color 

POP 

DX 

;re8tore  rafters 
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POP  cx 
POP  BX 
POP  AX 
RCT 

ENDP  PATH  ERROR 
ENDP  CHEC^  PATH 


OOOE 

Draw  ttw  tidt  acfMn  and  Input  the  usara  name. 


1 

Input  - 

Nona 

• 

Output 

•  Nona 

PROC  GET  ID 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

BX.DS 

MOV 

ES.BX 

XOR 

MM 

CAa 

MENU  BOX 

CALL 

lO^ME^SAGE 

IDO: 

MOV 

AL,pi4anu] 

MOV 

ICoior]>J. 

MOV 

AX.011Sh 

CALL 

QOTOYX 

CALL 

CSTR  OUT 

db 

'Plaasa  enter  the  ID  number  ‘,0 

1 

sat  color  or  Edit  saaaion 

MOV 

AL,{Nonnall 

MOV 

[Colorl^L 

sat  default  ID  string  to  ASCIi  zeros 

MOV 

BX.OIIsat  ID 

;ptr  to  atring  to  edit 

MOV 

Di.BX 

;ptr  to  atring  to  fll 

MOV 

AX,3030h 

;ASCti  zeros 

MOV 

[DIJ^ 

;piace  lat  two  bytes 

XOR 

AH>W 

;zaro  «  end  of  string 

INC 

01 

;advance  string  ptr 

INC 

01 

MOV 

PIIAX 

'.ASCII  0  and  hex  0 

1 

sett  ID  string 

MOV 

AX.0132h 

;row/coi  posWon 

CALL 

NUMBER  EDITOR 

:e(Mt  this  fWd 

IDB; 

POP 

DX 

irestora  raoiatars 

POP  CX 
POP  BX 
POP  AX 
RET 

ENDP  QETJD 
• 

; —  Oat  an  ASCIIZ  atring  input  from  the  keyboard. 
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Input  -  AX  -  Row/Coiumn  position  on  the  screen 
(101  must  contain  the  string  to  be  edited  before 
cai^  this  subroutine. 

OutPut  -  A^IZ  string  at  [ID]  In  the  data  section. 

BX-OX  register  saved 

Note:  the  folOM  register  hold  the  following  local  variabies. 

AL  -  Input  Character 
BX  -  pb  in  PO]  string 
CX  -  fkwv/Col  cursor  position 
DX  «  8tar^  Row/Col  position 

IMPORTANT:  IS_ZERO  traps  searches  for  1000*.  This  is  not  a  vaNd  ID#. 
The  OdOline  contains  the  flee  cortstart  variabies. 

(25%)  [Mewi]  [75%]  for  each  ditnenaion. 


PROC  NUMBER  EDITOR 
PUSH  BX“ 

PUSH  CX 
PUSH  DX 
PUSH  DS 
PUSH  ES 
MOV  DXM 
CAa  GOTOYX 
MOV  BX.Offset  ID 
MOV  AX.BX 
CALL  DSTR  OUT 
MOV  CX.OX 

; - beginning  of  Input  loop 

NUEO.  MOV  AX.CX 
CALL  GOTOYX 
CALL  GET^CHAR 

: - Return  key 

CMP  AL,OOh 
JNZ  NUE3 
CAa  IS  ZERO 
JMP  SHORT  NUE11 

; - Is  it  any  other  control  character? 

NUE3:  CMP  AL.lBh 
JNC  NUE7 
check  fOr  Backspace  key 
CMP  AL.08h 
JNZ  NUE4 
MOV  AL,13h 

; - left  arrow  key 

NUE4:  CMP  AL.13h 
JNZ  NUE5 
CMP  CX.DX 
JZ  NUES 
DEC  BX 
DEC  CX 

; - right  arrow  key 

NUES:  CMP  AL.4 
JNZ  NUE6 


;aave  registers 


leave  row/column  in  DX 
;set  cursor  position 
Iptr  to  PD]  str. 
iPDlptrtoAX 
iDisplay  zeros 
irow/coiumn  ptr  to  CX 

icmor  portion  to  AX 
last  cursor  posUon 
iwait  for  keybd  irqxjt 

lislta  <:ietum>  ? 

;V  NO  goto  next  test 
;l8  ttte  ID  number  0? 
icf  «  Yes  DoNot  search 

lis  it  a  control  char? 
ijnr^  *  not  control  char 

lis  It  a  Backspace  key 
|V  not  continue, 
iconvert  to  left  arrow. 

lis  it  a  left  arrow  key 
|V  not  continue, 
ibeginnig  of  the  string? 
lyes  >  beg.  of  line 
ISO  loop  wB  continue. 


ils  k  Rt  Arrow  key? 
ll  not  )unp. 
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PUSH  AX 

'.save  Cher 

MOV  AX.{BX] 

‘.check  for  end  of  atr. 

CMP  AKO 

;zero  -  end  of  string 

POP  AX 

;testorechar 

JZ  NUE6 

;l  -  0  no  right 

INC  BX 

;advence  poinlor 

INC  CX 

NUEB:  JyiP  SHORT  NUEO 

:gat  next  character 

. - 1, 1  <Eae>  key  ? 

NUE7:  STC 

;aet  carry  lag 

JZ  NUE11 

;aKit  on  <Eac>  key 

; - WMf  unvranted  characters 

CMP  AUaOh 

;ls  k  <  ASCtt  0  ? 

JC  NUEO 

;lf  YES  get  another. 

CMP  AL.3Ah 

;isk  an  ASCH  digit? 

JNC  NUEO 

:eietf  cf  -  not  digk 

; - piaoe  the  chMacter  In  the  PD]  string. 

NUE8:  MOV  [BX]>L 

;piace  char  In  pD] 

MOV  AX.BX 

:row/ool  to  AX 

CALL  DSTR  OUT 

;display  string  from 

; - Me  i  ‘end  of  string'  is  true. 

XOR  AH>tH 

CMP  AH.[BX-f1] 

;ls  ‘end  of  string'  ? 

JZ  NUEO 

:yos«do  not  move  cursor 

INC  BX 

‘jtdvuice  PO]  ptr. 

INC  CX 

'4Klvence  cursor 

JMP  NUEO 

;l  not  coiainue  Input 

NUE10:  ac  :clMr  carry  flag 


NUE11:  POP  ES 
POP  OS 
POP  DX 
POP  CX 
POP  BX 
RET 

ENDP  NUMBER.EOrrOR 

; - la  the  ID  Number  -  000. 

Input  -  ASCII  ID  string  In  [ID] 
Output  -  Cwry  Flag  -  Yes 

PROC  IS  ZERO 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  BX.OIIMID 
MOV  CX.3 
MOV  AL.30h 

ISZI:  CMP  {BX]>tL 
JNZ  ISZ2 
INC  BX 
LOOP  ISZI 


;save  registers 


;loop  counter 
;ASCII  zero  value 
;ls  byte  -  0? 
;not  zero  OKI  exit 
;ptrto  next  byte 
;look  St  next  byte 
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CALL 

ZERO^MESS 

:NO  zero  ID  numbers 

8TC 

;Ext  on  ID  Error 

JtlP 

SHORT  ISZ3 

:sBdt  error  no  search 

CALL 

ZERO.ME8S 

;iniorm  user  NO  0  ID's 

iSZ2:  CLC 

:OK!  ID  number 

ISZ3:  POP 

OX 

:raatore  reglslars 

POP 

CX 

POP 

BX 

POP 

AX 

RET 

Input  X 

none 

Oisput 

«  none 

PROC  ZERO  MESS 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

OX 

MOV 

CU[Color] 

;store  original  Color 

MOV 

AL.IWPming] 

;«iiaming  color 

MOV 

[Coior].AL 

;aot  color 

MOV 

AX.0109h 

.*rowr  3/Col  12 

CALL 

QOTOYX 

;aat  cursor 

CALL 

CSTR  OUT 

;(flaplay  sremlng 

db 

*  A  vaMd  ID  nunnbers  must  be  larger  than ‘000*.  Press  Any* 

db 

•Key.  ‘.0 

MOV 

IColor).CL 

'.restore  origbiel  color 

CALL 

HIDE  CUR 

CALL 

ERR 'Sound 

CALL 

QET~CHAR 

CLC 

;clear  cf  •  continue 

POP 

DX 

POP 

OC 

POP 

BX 

POP 

RET 

AX 

ENOP  ZERO  MESS 
ENDP  IS.Zm 


; - Instructions  for  sniaring  the  users  ID  number. 

Input  •  None 
Ou^  -  None 

PROC  ID  MESSAGE 
PUSH  AX 
PUSH  BX 
PUSH  CX 
PUSH  DX 
MOV  AX.1S00h 
CALL  MENU  BOX 
MOV  AX,iedCh 


;aave  registers 


;row  21  .column  0 
;drBW  menu  box 
;row  22,coiumn  13 
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CALL  QOrOYX 

MOV  AL.(Calor]  ;gM  currant  color 

MOV  CLAL  ;ttora  In  CL 

MOV  AL,{M«nul  :Mt  color  «  menu 

MOV  (Coior]>L 
CALL  CSTR_OUT 

db  Type  ttie  10  Number  and  preet  the  <Enier>  key  to  corainue’.0 
MOV  AX.170Ch  ;roMr  23.column  13 

CALL  QOTOYX 
CALL  CSTR  OLfr 

db  ’  or  pratt  the  <Eac>  key  to  return  to  the  Main  Menu.'.0 
MOV  >0(.0207h  ;row  23,eolumn  13 

CALL  QOTOYX 
CALL  CSTR^OUT 

db  'A  veMdlO#  muM  oontalne  thrae  nurnericai  digks.  * 

db  'Example:  1  -  001'.0 

MOV  [Color],CL  ;restora  orig.  color 

POP  OX  :reMora  registers 

POP  CX 

POP  BX 

POP  AX 

RET 

ENOP  10  MESSAGE 
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